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The above changes are corrections to the compiler and do not represent 
misprints in the listing. The compiler as distributed would construct an 
incorrect translation of multiple parameter subroutines at least two of 
whose parameters are expressions* 

The above change should be made in the seven per card deck which is in 
standard seven words per card fornu 
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PART I - PROGRAMMER'S GUIDE 
X* Xntroduction. 

There exists a general class of problems — which include most engineering 
and scientific problems « whose solution has a prescription represented by 
one of the two following schemes % 



(1) {""Initiate j IBo" 



LProcesa A,f— fr f Process A |-frlof . ProcesB A 



JixniDit results - 



(2) { Initiate Do j Exhibit results of Process J 

I.Prnnfffia.A„r , >lPr,oc.ftfia„A,H»lA ,1f yuxp.pftn.'lVlft;, 1,f not«,.Mf,heTU 



[Modify Frocess-Aj 



Here A is a process - a finite sequence of arithmetic operations 
applied to a finite number of variables — which operates on a set of Input' 
variables to produce a set of output variables, i.e., A is a function. 

Scheme (l) is representative of those problems whose exact solutions 
can be obtained by a finite number of arithmetic operations applied in a 
sequence which is assigned a priori. 

Scheme (2) represents, among others, those problems whose exact solu- 
tions can, in general, only be obtained by an infinite number of arithmetic 
operations applied in a sequence which is assigned a priori* Such problems 
are rephrased to require solutions which will, in some sense, approximate the 
exact solution. Such modified problems have solutions which can be obtained by 
a finite number of arithmetic operations applied in a sequence which may not 
be a priori determinate — actually the sequence can be determined, but Its 
enumeration is equivalent to solving the problem. 

Problems of the first kind consist of a finite collection of processes, 
each of which has an a priori determinate (unique) successor. 
Problems of the second kind consist of a finite collection of processes, 
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ifome of which may have more than one possible successor -- chosen from 
among a finite set -- with an associated set of rules which effect© thtt 
unambiguous determination of successors. Problems of both classes- can be 
represented as having solutions in the form of algorithms; A finite collec- . • 
tion of distinguishable processes, together with a function -• the control 
function -- which unambiguously selects a successor for each process.. ' 

In general, the control function has no simple analytic form, nor 
is it unique. Its purpose is to choose an explicit ordering of the processes 
to be accomplished whenever the algorithm is to be applied. In problems of the 
second kind, the set of integral values taken on by the control function is not, 
in general, a priori determinate. 

A computable algorithm is an algorithm for which no process is carried . 
out more than a finite number of times. The only problems of interest, at 
least in terms of digital computation, are those whose solutions can be 
obtained from a computable algorithm. Indeed, every computable algorithm is 
the description of a special purpose digital computer. A computation of such 
an algorithm is a specification of values for certain problem variables together 
with a possible set of values of the control function which includes integers 
designating a first process and a (meaningful) final process. 

The control function is, completely described by assigning to each process 
, the designators of (integers which distinguish) all meaningful successors, and 
a rule by which the appropriate designator may be extracted whenever the 
rule is applied. 

Such a rule which makes a determination from among n possible successor! 
can always be replaced by a sequence of rules each of which makes a binary de- 
cision, viz: S^ 

or even 



-**»«^rp^ becomes VL^^ 
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Hence only such rules or functions need be considered, I.e. , the 
control function of any computable algorithm is a set of functions, finite 
in number, the range of each of which is the digits and 1. These functions 
may be considered as propositions on the problem variables which, if true, 
take on the value 1 (the left branch at a node of the graph) and, if false, 
take on the value (the right branch). Such propositions must involve only 
arithmetic operations on problem variables i.e. , they must be processes which 
^define problem variables. For example, a proposition may be taken as true 
if the defined variable is non-negative, otherwise false. Indeed, it is 
asked whether the defined variable is in some arithmetic relation to zero. 
Without loss or generality these relations may be limited to. the following: 

greater than 

greater than or equal to 

equal to 
Such rules are arithmetic (binary) decision procedures and have the 
following explicit form? 

Given: (i) A process (identified by the integer) k 

( ii) Two possible successors designated by n and m 
(iii) Two problem variables x and y 
( iv) A relation.. ■#- 

Choose n if x is in the relationTTto y r x "2T y 
Choose m if x is not in the relation V to y : wftr y 

In general most of the processes in ah algorithm have unique successors 
which may be schematically represented as that process terminating an arrow 
symbol,-*— ^(meaning "and then"), i. e. , by propositions which are always true 

It has been indicated that an algorithem can be represented by a graph 

of connected line segments whose nodes represent the processes while the 
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topology of its directed links gives the structure of the control function. 
Such graphs are commonly referred to as j^^.c^rjto. Because of the flexi- 
bility of their form they are the moat commonly used representation of computable 
algorithms. In general a computable algorithm may be represented by more than 
one flow chart. 

Each process in the flow chart; defines a variable as a rational function 
jif initially, or previously defined, variables. Schematically, a process may 
be represented as: 

•——■& k: v r f (xj, *£» ...» ^n» c l» c z* * * • * c m) ' ' * 
Here the x's are variables, the c's constants, and k the (integral), designater 
for the process. 

Binary decisions may be represented as: 

— -^ k:. vT w ^ 

. To complete the schematic representation, a FINISH is adjoined: 

There must be at least one process which is the direct successor of 
no other process. Such a proceos is an initial one in an algorithm. When 
the algorithm is defined in terms of soxne set of initial variables, a com* 
putation of the algorithm requires the assignment of values to these variables. 
Schematically, this assignment may be represented by a table which may be 
taken as the initial process. 

It is clear that a flow chart is a representation of a function -- 
• the computable algorithm. A flow chart may then be considered as a type 
of macro-process which itself may be a component process of some other flow 
chart. Such non~elementary processes may be represented as: 

£ (...) -J 

where f (...) is itself computable, Such computable functions, when 
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of wide utility, are usually called ^w&Jja.zw* ' "' wo claoaes of subroutines 
are identified? (l) Those of aer-jval utility, eg., (computable approxi- 
mations of) Bin x,_ Q x f \/x , matrix inversion, etc*; (ii) Those of local 
utility, e.g., those which mxy jPrequontly occur within one flow chart. 

In the above representations equality sigao (-) have been used in two 
different contexts — as a relational identity in which a ^ b means that 
e* » b Is zero; and as a substitutional Identity in which a 3 b means that 
the value of a becomes the value of b, e.g., n m n -f- 1 moan's-" the value of n 
is incremented by one. It Is convenient to use an arrow ( 4-»*) for this 
latter context and to reserve («) for the first cited context. 

As originally designed most computers accept and operate on (in this ' • 
ease decimal) numbers having; a sign and a fixed number (in this' $ase ten) of 
digits. All numbers are, In magnitude, consigned to a fixed interval, e.g., 
0<J|x|<C 1 e 10 ^ . Thia is called the fixed point representation of num* 
"b®r®* It the result of an arithmetic operation is outside the Interval, 
special provision Is required to prevent the stopping of the' computer 'on 
overflow • ,**•.. 

Since a priori scaling of a problem is; often quite difficult the floating 
point representation of numbers has been established. In this form all numbers, 
X, are written as X«10 "5°(y e 10 s ) and are carried as a number pair ( Y, Z)- 
where -1.^* | Y I ^10 and 0^2 4*99» Y contains, in this instance, eight digits- 
and the sign of L Z consists of two decimal digits which specify the location 
* of the decimal point and is called the machine ;nower of the number. X * 6 is 
defined to be ( 0, ) » Numbers of the above form will be called allowable 
numbers* 5Jha extension of the Interval In which X may lie makes overflow less 
likely to occur In the course of on extended computation. To cite an example, 
the eight digit . real number 4" I&65.OO76 would be represented as the pair 
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(■4-18650076, 53) and is then said to be in standard £1 eating point form. 

II. A Compiler For The 650. ' . 

'A compiler may be defined as a program which satisfies the following 

four conditions i 

1, It provides direct, machine translation of flow charts into a code. 

2. It has the ability to translate into some machine language any 
program which could have been coded in that language, i. e. , it has the same 

scope as the machine in question. ' ' 

i. . 

3, It automatically allocates machine storage. Such allocation ia* 

almost independent of the logical structure of the problem. 

4. . It may extend its list of understandable symbols to include those 

identifying any particular flow chart when it is instructed to do so, • ' 

'The motivations leading to the consideration of a compiler are ob- 
vious to anyone who ha® ever programmed. Nevertheless they may be summarised 

as follows j 

U Programming involve® a large amount of repetitive labor and' hence is 
worthy of automation, • 

2. Those who propose problems should program them, but should not 

be required, to code them* 

3. The ratio of time required to flow, chart a problem to that for 
coding it should be much larger than one. Currently it is much smaller 
than on© and* as the machines get larger, this ratio may tend to aero. 

4. The structure of compilers may provide insight into the logical ■ 
"design requirements of future -computers, ■ " " 

In the sequel a compiler for the IBM 650 is described which provides 
an automatic translation into 650 codes of those' solutions of problems 
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expressed as; computable algorithms, I.e., as flow charts. 

A particular formal language, named IT, will "foe described in which 
processes, and control functions must be couched in order that, this translation 
may occur. Programs written in this language are called XT. programs. 
Examples will be cited in XXX to show how certain, admittedly simple, flow 
charts may be described in this language. . 



1* XT's Characters. , ( . : . 

The' language as described is applicable to the IBM 650 which admit© 
the digits through 9 and the (Roman capital) letters A through Z. Thus.; 
certain standard symbols are represented by alphabetical characters. ■• Except 

wMn it occurs ia an MGLXSH word, each alphabetical character has one and, 
©sly one meaning' in this language. 

1.1 Punctuation characters • 



SYMBOL 

c 

5 

© 

@ 



REPKESE3STATIC3H,,, -, 



KAME 

■■.-.'. Left parenthesis;:'.'' '■.'■' ■■;■■■'. 
Bi^ht parenthesis 
Decimal point 
Substitution 
Relational equality 
Greater than 
Greater than or equal 
fflba' following ipunotuatlon 'Characters will be introduced as they oxtmt 
. Comma ■ • V 

-P Quotation marW Q "■ ' ' . '" ■ 

'. '.. ..0. " **»• ' . ' ■'■*'■■■■ ■ ' ■ 

s . Finish . " F 

" . ■ ' Extension identifier $ 



> 



R 

J 
Z 

,v 

V 

w 



. , V.-' 
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1*2 » Variable characters. 

I 

Y 

C 
1*3 * Digit characters. 

The integers through 9 

B (see section 3.2.3) 

In the sequel lower case letters, such as k,l,m, and n will 

it. 

*b© used to represent arbitrary positive integers. 
1.4 • Operator characters. 



SYMBOL 


NAME 


REPRESENTATION 


Binary operators 


■ 




4. 


Addition 


8 


X 


Multiplication 


X 


/ 


Division 


D 


exp 


General exponentiation 

• ■ Vtsf a Fb means a^ 


* 


ttoary operators 






H 


Absolute value 


A 



- *•* Negative of ' ' M #*• ■ ■ 

2» XT*s variables. 

2*1 • Problem (fixed point) variables 

la Hn IXIn For example 18 1136 2212 . ■ 

These variables take on integral values only and are used primarily 

as indices. 

2.2 •' Problem (floating point) variables ^ . 

■ Yn Yin YXIn ' ¥3 nkf * YII21 

For examples 
On CIn Clin 03 CIO CII7 
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Thus, if 121 * 10 and 110 - 20, then 1X21 is the variable 110 

and YII21 is the variable Y20. • 

The C&Y classes of variables have the same logical significance 

in the language. They aid in the (external) differentiation between two 

classes of data or problem variables. The numerical value of any of these 

variables is alvays represented in floating point form. 

2.3 • Composite variables 

' Y( ...) . Y(ll + 6> 

l( '...) for example l( 113 x 19) , 

C( ...) C( X ( lit 2)) 

The parenthesized Quantities must be fixed point expressions (see, 

section k*k )* .... 

2«k • Matrix (floating point) variables 

,YXf( ..., ...) 

CN\ .«*•>•«•/ 

are general elements off the two matrices (listed row-wise) whose 

component® are Y0, Yl, Y2, .«* and CO, CI, C2, .,• respectively* 

The parenthesized quantities, which must b© fixed point expressions , 

■specify the row and column location, respectively, off the matrix variable* ' 

The row dimensions of YU and CN, i.e., the number of columns in 

the matrices, must be specified by assigning them to II and 12 respectively. 

Thus* when using the matrices •} > off dimension, say 4 >■, < { must b© assigned 

(CH) • U) (12) 

the (fixed point) value 



& 



The row subscript and the column subscript always range from zero 

to their respective dimensions less one., 

For example, a rectangular matrix, YN, of row dimension three and 
column dimension four would' be s 
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YO Yl Y2 

Y3 YU Y5 

Y6 Y7 Y8 

J9 YIO yu 

Here, YN (0,0) Is the variable YO, while YN(l,2) is the variable 
Y5- II must be assigned the value three. 

Another technique for handling matrices is described in part III. 

Notes vn will designate an arbitrary variable and A^ an arbitrary 
admissible operator in the sequel. 
3» Admissible constants . " 
3-1 . Fixed point constants (integers) 

n^n2«..n k k < 10 For example 1066 j 10 ; I2923U5566 

However 123 • is not such a constant since it contains a decimal' 
point . 
3.2 Floating Point Constants 

3.2.1. n l n 2* #8 n i* n i4»l ••• n k ^ ^ ® 

For example lU.92 ; .11 ; 13. ■ , 

3*2.3 n^ng ... n^B m • k < 8 which means 

n-jng... n k X 10 01 , where a) n^ng ... n^ is either a fixed or a 
floating point constant, and b) m must be either m^mg or -m^mo , where 
m ^2 is a fixed point constant. 

RHUEJs If m is of the form -m^mg then the entire constant must 
be enclosed In parentheses. 

For example 1^.92 B 3; (1066 B-ll)j (-727B-3) mean 1^.92 X 103; 
1066 X 10" 11 ; and -727 X 10" 3,. respectively. 

Note; Floating point constants used within statements (see section 
5} must be In the above form and not in standard floating point form. 
Thus 1^.92 but not 1U92000051. • • 

k, IT's operands. 
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k*l . Any variable or constant is an operand. 

k.2 • If vl and v2 are operands, then (vl ^ v2 ) is an operand, 

U # 3. Subroutines , themselves functions of one or more operands, are operands. 

They are represented as " n E , vl , v2 , ... , vj" which means the subroutine 

whose identification number is n and which is a function of the operands vl , 

v2 , ••• , vj. Here n must be a. fixed point constant less than 626. For 

example, if the sine subroutine were subroutine number 22, then sin (Yl + Y2 ) 

would be represented by "22 E , ( Yl 4- Y£f while "1 E, "22 E ,(Y1~$* Y2j "." 

would represent log^g (sin (Y1 + Y2 ) ) if subroutine number 1 were the log 

routine. 

k,k . If vl and v2 are operands, then vl & v2 is an expression . Due to the 

method by which IT examines strings of symbols, some expressions will hot be 

treated as operands* However all operands are expressions. The norm of an 

expression is the number of symbols, exclusive of spaces, making up the 

expression. '.•*■■ 

4.5 . If an operand is a variable or a constant its arithmetic (floating 
point or fixed point) is that of the variable or constant. 

4.6 . If any operand, with the exception of subroutines ( EXTENSIONS ), 

is composite and at least one of its members is floating point, the arithmetic 
of the entire operand is floating point. 

4.7 • The arithmetic of subroutines is determined by their extension number, 
according to the following t 

' n < 500 floating point j ' n ^500 fixed point 
5. ir*s statements. 

Each statement is identified by a non-negative Integer k£ 626. 
The execution sequence of a set of statements is not determined by this 
identifier, but, rather by the physical ordering. 

A natural correspondence exists between the types of processes 
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found in flow charts and the kinds of statements in the language. Statements 
may be considered as sentences — correctly formed strings in the characters 
of the language, A description of the various statement forms follows. 
5«1 . Substitution statement 

ks vl(-v2 

where vl is a variable, v2 is an expression and k is the statement identifier 

(number), /The effect is to set the value of vl equal to that of v2 in the 

arithmetic of vl. Thus, 

7: YI2 4- XI -J- 13 x Y3 - Yh 

sets the value of YI2 equal to that of Zl«f>X3 x (Y3 - Yh) in statement 7. 

3*2 , Unconditional linkage statement 

Any of 

ks n 

ks G X...X n ' . 

ks (...) . • 

where k is the statement number, The effect is to define an unconditional 

transfer, i.e., an. interruption of the execution sequence to that statement 

whose identifier is n, or the value of X...Xn, or the value -of the fixed point 

operand, whichever the case may be, 

5,3 • Relational (conditional) linkage statement 

Any of 

ks On 

ks 01... la y 3CF vir v2 

ks (...) 

where vl is an operand, v2 an expression* and y .is one of the three relations 
* C>* «fe. # If- vl is in the relation y to v2, the effect is that of the 
portion of the statements if not, the execution sequence is unaltered* Thus, 
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ht G 13 IF ' ( Yl f Y2 ) > 9 
effects the transfer of control to the statement having a number which is the 
value of 13 if Y14*Y&^9J otherwise the sequence is unaltered. Removing 
the parentheses would make the statement inadmissible since, in relational 
statements, when the left member is compound, it must be delimited by 
parentheses. 
5 A • Halt statement 

&* H 
The effect is to suspend computer operation. Pressing PROGRAM START will 
cause computation to resume with the next IT statement. 
5.5 * Input statement 

ks READ 
The effect is to initiate the input of one or more data cards whose formate 
are described in section 1**. As an aid in identification, any dumber of 
characters may proceed the word REAIh 
$•0 * Output statement . • 

k: T vl T v2 • T v3 T vk 
Hie effect is to punch a card, whose format is that of a type 1 (see Section 
lk) input card, containing the names and current values of vl, v2, • ••,< vk» 
Here the v's must be variables but neither constants nor matrix variables, 
and from one to four may be listed in the statement. If a variable is 
composite, say Yl6, its current name is punched, e.g., if, at punching, the 
value of 16 is h then the value of YU vill be punched together with the name 
Y^. The statement number is always' punched on the card. 
5.6. 1 Conditional Output statements, which have the same form as Output 
Statements except that ..the statement number must be zero. They provide 
output conditional on the sign storage entry switch during operation of the 
compiled program as follows 1 Storage entry switch set to minus (-) activates 
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output; positive (-f-) setting causes output to be bypassed. 
5. 7 . Iteration statement 



Here 



k: j, vl, v2, v3, v4, 

j is an integer which must be positive 

/ vi is a variable 

v2 is an expression 
v3 is an expression 
v4 is an expression which must not involve any of the operators; 

-ft. I XJ D XT « 

The norm of each v must not exceed five. 

The effect is to construct an iteration of the set of statements interposed- 

between k and (including) j -- called the scope of the iteration statement •- 

on the variable vl as it varies from v2 to v4 inclusive in increments of v3. Thus, 

15: 19, II, I3*M # 14, 15+1, 

21: Y50"CI14~2 

19: YIl<c~Y5 -* 7 

causes statements 21 and 19 to be executed sequentially for all values of II 

from 13-1" 4 to '15-4-1 m steps of 14. 

If v4 - v2 is not divisible by v3 the iteration stops before vl 

assumes a value beyond v4. 

If v3 is to represent an actual decrement it must be of the form -v, 

where v must be a constant or a variable which takes on only non-negative values . 

Any of v2, v3, v4 can be of the form -v. In general, fixed point 
quantities should be used in iteration statements. If floating point quantities 
are used, great care should be taken to insure that the desired number of 
iteration cycles be executed. 

A hierarchy of nesting of iterations is permitted, i.e. , an iteration 

statement may be included within the scope of a prior iteration statemj&nt. 
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However, no particular neoting may exceed a depth of four. Any statement 
which iwuediately follows an iteration statement must have a unique non-zero 
statement number. 
5.8 . Extension statement 

k* n E f • • • • 
The effect is to accomplish the sub-routine before passing to the next 
statement in sequence. Such a statement is uoed wherever compound sequences 
of operations, not necessarily leading to the definition of a single variable , 
are required.' Thus, that of sorting, solving a system of differential equations, 
pad :ing and unpacking data* etc. 
6. Example. 

The following vill indicate how a particular flow chart may be 
represented in compiler language. 



The flow chart below evaluates the polynomial y 



i * 10. 



1 BEAD, 2 
x 

a© 
&1 



a-iG 



i • 
6 



R l w 



•^j/jTo j-* U *- io L 't-» ry «-"&! ■frxyV fr ji <- i .- lfr Ki ^ <J -> 7 

^■l.y, ■*« J... ri.i.i».ii m.i ' |,.ii.ii.«. 11.ru, mpm* A ' fwii i i 1 * m i 1 1 ' m> > ' V ii wi I. i t i miinnwA V. Jt ^/ , 



Using the notation for variables in the compiler language, the flow 
chart is sirnplys 

1 IffiAH a . 3 _._ k . : 3. 



^^• rYTgrcTfe^iJL'^. ii.l -» lra *» cii +7TTgg1 -»lii «- ii - 4U fti> 1 



CJ 



C.U 



VN 



y 



The corresponding program in the compiler language is: 
ll Yl, Cl through Cll RJ5AD 
2i Y2 <* 
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(I) 



114— 11 

Y2f~CIl+-Yl x Y2 

11^—11 - 1 

G 4 IF II J> 1 

H 



or, using an iteration statement and letting the degree be variable by* 
assigning it (plus one) to the variable 15: 



(H) 



1: 
2: 
3: 

4; 

7: 



Yl, CI through Cll, 15 READ 
Y2 'f— 

4. II, 15, -1, 1, . ■ ■ . 

Y2<£— CIl-f-Yl x Y2 

H 



Using the required representation for all symbols, the latter 
program for evaluating a polynomial of any degree becomes: 

Is Yl, CI THROUGH Cll, 15 READ F DATA READ 

2: Y2 Z OJ FSET P 

3: . 4K UK I5K M1K IK F I LOOP 

4: Y2 Z CIl+*Ylx'Y2 F NEW P 

.7: H FFSTOP 

The following remarks concerning the representation of the flow 
chart are pertinent: 

Each process in the flow chart leads to one and only one state- 
ment in { I ). However ( II ) encompasses in one statement, that numbered 
3, the processes numbered 3, 5, and 6 in the flow chart, 

these three processes are typical of certain iterations where a process f ( ... ) 

is to be carried out for all nj<£ i<C**2 » or for fiorne subset for which 

*1 s n l» ^j-j-i '-S-.*j+ m » *p r n z* ^ocess 3 sets the parameter; process 5 
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increments it; and process 6 determines whether Its upper limit has been 
surpassed. These responsibilities are combined in the iteration statement. 

Since XX is a floating point variable it is convenient, but not 
necessary , to use a zero which is a floating point constant, i.e. OJ. 

The degree of the polynomial is, properly speaking, a problem 
variable* Treating it as such in (XI ) consequently makes for a more 
general program. 

The F and the FF mark the statement end and program end respectively, 
and must be used* 

■imiiimi ■!» ■ mm MM* —wiijiwm ' 

8* The Process of Compilation 

The compilation process is independent of the statement type* 
Statements are compiled in their order of entry into the computer, and the 
compilation of any single statement is independant of the nature or presence 
of other statements. Compilation within a statement is unidirectional from 
the end of the statement to the beginning (i.e., from right, to left) and is - 
completed in one pass* Within a statement, parentheses are' ordered from ■' 
the right. 

Each ©f the four binary operators ["/£[ : -f / X P has a left and 
ri^at operand, V L ( f\ ) and V R ( & ) reap., which are expressions. 

V«( A ) 1b the expression delimited on the left by ft and on the 
right by the first comma or unmatched right parenthesis or right quotation, 
or - If none such occur - the end of the statement. 

VV( ft ) is the operand to the immediate left of ft, i.e., the 
operand whose rightmost character _is immediately to the left of ft. 

Xn the following examples the brackets delimit the right and left 
operands ©f the underlined binary operators: 
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>» « ■* ' ■ "" *"« *'^ f-*^ 

Y14* ( Y2 / Y3 )± Ilf 

/~% r"*" — • " "" "" — ^ 

T " ^ yml i mur ii m i i i i ii mi ii j 



Yljfc "IE, Yk ± Y7 " ' + 3* 
The unary operators A and * have only a right operand which Is that 
operand immediately to their right; for example, 

j , i. ,i . n » wmu lup hmh i w ii i i i ' i i un i ^ 

A ( y . 

/" MH«WMWM»IH 'l " l "t|1l ll|< W I "W '«*j l 

A^-fr Y2+Y3 

The unary operator, MINUS, differs from the true unary operator 
A, in that it can t>e preeeeded on the left "by the following onlyf 

.(a) any operandi here the effect of MINUS is that of 
, 'PLUS MINUS, e.g. I 

means 
Y2 4. (~Y3) 4- (Yk x Y5) + (-Y6) / Y7 

(b) the substitution operator <~~ 

e.g.t Yl*- -'S Yl«- (-Y2) 

mean 
Yl «~ ~*y2 * Y3 Yl 4- ((-Y2) + Y3) 

(c) the: eacponentiatlon operator P 



e.g.t YIP -'«? . *1P (-X2># *•••» *!*** 



mean 



YIP -*©*• Y3 YIP ((-Y2) 4-Y3)'), i-e.* yi(*3«) 

N,B». -Y1PY2 means (-Yl) PY2 
(d) the punctuation character COMMA, 
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mean 

• S2 + *2 ,«-Yl)+Y2) 

(e) the character LEFT PAKENTHESIS ( 
e.g.: (-SJ) (-Y1) 

mean 

(5J+re). ((-yi)^y2) 

(f) the symbol B; see Section 3.2.3 

Briefly then, if vl is an operand then -vl will, when applicable. 
be treated as an operand which is the negative of vl. 

The three relational operators a j > ; > have right operands 
as described above for binary operators. The left expression of the 
relation must be? an operand, e.g.* 

Gk if9 r - — — . 

a k if t 7* r ~ ' 

G k IF /,r «.- — n% f ....- 

but not 
G k IF XI 4. Y2 T 
The symbol pairs s • j > - 1 J> - j are inadmissible. 
Xn the above, the brackets delimit the left operand of the 
relation, & , which is one of a J ^ ; > . 

Within a statement, binary and relational operations are completed 
la the order - from right to left - in which the leftmost character of their 
left operands are found* Unary operations are compiled from right to left 
as they occur. In the following example, the operations - together with their 
right and left operands - are listed in order of completion. 
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Order Left Operand Operation Right Operand 

1 11 + X 

2 2 *...;... lk 

3" ' 2 * ifc / n^x 

5 ( Y2 X .-— — ll ) . 4. ' ■ (-A Y2 ) 

6 ( -Yl } ^ ( Y2 X II ) 4- ( -AY2 ) 

7 Y3 _ ~r ... ( -Yl ) * (Y2 X II ) * ( -AY2 ) 

This method of scanning statements does not conform to the standard 

hlerarchal approach of decomposing arithmetic complexes. Thus, to the 

compiler , Yl X Y2 -f»Y3 does not have the customary meaning of (Yl X Y2) -8- Y3 

"but rather that of Yl X (Y2 4» Y3). Should the former meaning be the one 

desired, the expresoion muist "be written as (Yl X Y2)*f* Y3» An arithmetic 

complex can be given any desired meaning by appropriately positioning 

■*''' "4 
parentheses* Any number of parentheses may be used within a statement subject 

only t© the restriction that no single parenthesis nesting may^exceed a 

depth of nine (9)# The above remarks hold, without exception, &oz£ quotations 

and mixed, nestings of parentheses and quotations. 

Visualizing the statement as a string of symbols , scanning proceeds 
from right to left by examining successive symbol pairs (spaces being 

ignored) » Each symbol pair has a- unique effect on the compilation which is 

_ t 

■ essential^ independent of neighboring symbols. IT recognizes' 3V distinct 
' symbols (plus ©paces). Of the II56 possible symbols pairs, only. 200 have 
' meaning* Each meaningful,— or .admissible symbol pair is associated with a sub- 
program within the compiler, called the generator for that symbol pair. 
Of the 200 •possible generators, only 6k are distinct. Entry to the generators 
is obtained through a table. 
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IT parallels - and intentionally so - the internal organization 

of a stored program digital computer in which the instructions are statements, 
the control register is the scanner, the order matrix is the symbol table, 
and the central and arithmetic controls are the set of generators. A list of . 
the meaningful symbol pairs (spaces being ignored) follows. The presence of ■ 
other symbol pairs within a statement will halt compilation (see section 11). 

Permissible Symbol Pairs and Compiler Representation 



AI 


AI 


PA 


FA 


.P- . 


JP 


(I 


LI 


P. PJ 


A( 


AL 


FC . 


FC 


it 

• 


JQ 


(. 


LJ 


P( PL 


A". 


AQ 


FF 


FF 





JR 


(( 


LL 


P" PQ 


AY 


AY 


FI 


FI 


.4 


JS 


(- 


LM 


PY ' FY 


B- 


BM 


P. 


FJ 


*s 


JU 


(II 


LQ 


Pn Pn 


Bn 


Bn 


F( 


FL 


.> 


JV 


(Y 


'LY 


P- PM 


CI 


"CI 


. F" 


FQ 


*> 


J¥ 


(n 


Ln 


7 QD 


c( . 


CL 


Fn 


Fn 


•X 


JX 


-A 


MA 


M p qf 


CN 


CN 


GI 


GI 


•n 


' Jh 


-C 


MC 


■", OK 


Cn 


Cn 


o( 


GL 


A 


KA 


-I 


ME 


"- QM 


A 


DA 


Gn 


Gn 


,c 


KC 


-J 


MJ 


"P QP" 


/G 


DC 


HP 


W 


,i 


KI 


-( 


ML 


»»•• QQ 


DF 


DF 


IF 


IF 


i • 


KJ 


^ K( 


NL 


")' Q£ 


/I 


DI 


XX - 


II 


.< 


V KL 


it 


mq 


"* OS 


7. 


DJ 


I( 


IL 


' f m 


KM 


-Y 


m 


"a QU 


/( 


DL 


In 


In ■ 


n 
t 


KQ 


-n 


Mn 


"> QV 


r 


DQ 


./ 


JD- 


,* 


KY 


,P 


KF 


"> $* 


i* 


BY 


. .P 


JF 


,n 


■ Kn" 


PA 


PA 


"X QX 


/n 


Dn 


Of 


JK 


(A 


LA 


PC 


PC 


"n Qn 


E, 


EK 


»** 


M 


(C 


LC 


PI 


PI 


)/ RD 
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*', 



)F 


RF 


fY 


sy 


>« 


vq' 


XY 


XY 


»/ 


aD 


>, 


RK 


♦n 


Sn 


' >Y 


vr 


Xn 


Xn 


aE< 


aE 


>- 


KM , 


TC 


a?c 


>n 


Vn 


YI 


YX • 


nP 


aF 


)P 


Iff 


TX 


TI 


& 


WA 


Y( 


YL 


a. 


a*. 


)" 


' RQ 


TY 


TY 


>C 


wc 


"' YN 


YN ' 


al 


at 


)) 


RR 


S A 


UA • 


>* ' 


wx 


)T 


RT 


'»>- : . 


aK 


)♦ 


H3 ., 


«C 


• UG 


£• 


WJ 


Yn 


Yn 


a~-'.. 


aM 


)■.■ 


m 


' »x 


UX . 


, >( 


WL 


-HA 


2A 


aP 


aP 


> 


M " 


So 


UJ 


■ ?•■ 


WQ 


.-t-C 


ZC 


an 


aa 


fe 


KW 


«( 


VL 


» 


m 


«~X 


ZX 


a" 


aQ 


)x 


BX 


w 


m. 


>a 


Wa 


«-. 


2tf 


n) 


aR 


)- 


RS 


. «Y 


m 


XA 


XA 


««( 


ZL . 


a* 


aS 


♦A- 


SA 


»n 


Un 


T( 


. «EL 


' «- M 


ZQ 


aT 


aT 


*C 


SG 


>A 


VA 


XC 


XC 


*-Y 


22C 


»a 


aU 


+1 


8Z. ( 


>C 


VO 


" XX' 


■ XX 


^-.« 


ZM- 


a> 


aV 


*. • 


SJ ■ 


■ >X 


..VI 


X* 


XJ 


«*»n 


Zn 


a> 


atf 


♦ ( 


HL 


>. 


VJ 


x( 


XL 


)I 


KX 


aX 


aX 


♦ " ■ 


sq 


x" 


YL 


X" ' 


' XQ' 


aB 


ra 


a*- 


nZ 
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9* The Compiled Program 

Compilation proceeds in two phases t l) translation from an IT. 
program into a symbolic program PET and 2) assembly from a PIT program 
into a specific machine coded program, SPIT* 

The result of the translation phase is a symbolic (PIT) program 
in S.OJUP* language | l.e», one instruction per card in standard alphanumeric 
SOAP format • For details concerning the nature and use of SOAP beyond those 
required to use the compiler, see 650 Programming Bulletin No* 1, I.B.M* 

The PIT program (translation) consists of four (k) parts? l) the 
main (symbolic) program ; 2) the statement dictionary, to be described in 
the sequel; 3) ^ n ® constants (abeons) used within statements! k) ten (10) 
reservation cards* 

The code for each statement is punched out as soon as 'the statement 
has been translated* A statement dictionary entry is the first card punched 
for each statement* This dictionary provide© the linkages for transfer - 
statements* In addition to the program and the statement dictionary, a list 
©f constants (those found in the statements together with several required 
by the finished program and furnished, by the compiler itself) .is. punched 
together with ten cards which reserve space in the machine for these a eon* 
stanto, the statement dictionary > and the problem variables. 

For the IT program (II) which evaluate® the polynomial of. degree 10, 
tba corresponding PIT program would bet 
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'5 
• 6 

' 7 * 
8 

9 
10 

ai 

.12 

15 
x6 

IT 

18 

•19 

20 

21 

- £2 

23 

25 
£6 



'29 

30 '■ ' 
. 31 .. 
• 32 
. 33 
~.-3^ . ' 

35 ■ 
■ 36 . . , m 

J(*.3 I !•»"•'* 

38- . . 



kl 



I 



•:S 



1*5 
IS 



I 



30001 
XAAAA 
S0002-' 

XABAA 

S0003 
UCAA 

BOOO^ 
IADM 
•IAMB 
IAMC 
LAMD 



80000 
MM 



■S0000 
XAFAA 



S000? 
IAGAA 
A 

■ A0008 

AOOOT.. 

A0006 

.A0005' 

A0004 

A0003 

••A0002 

•AD001 



00 


CXX)0 


IAAAA 




USD 


IAEAA 


EOOAQ 


READ- 


00 


oooo • 


LABAA 




RAL 


AOOO? 




X2 Z 


STL 


Y0002 


IAGAA 




00 


0000 • 


LACAA. 




RAL. 


10005 




11 


STL 


.10001 


LADAA 


15 


00 


0000 


IADM ' 




RAL ' 


Y0002 '; 


IADAC ' 


Y2 ..Z 


RAL. 


yoooi 


LAMD' • 


181 


• STL 


'ACC ! 


IADA3 


2 


TDD 




i EOQAJ • 




RAL -. 


J00Q1 


i. _ 
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SLT • ' 


. X0003 
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.* • ■ *' 
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' EOOAI 
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STL 


Y0Q02 


■ . . IAEAA ■ • 


, 


00 


0000 


'IAEAA 
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A0008 
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ALO 


10001 




11 
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■ LAFAA 
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ME 
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00 


oooo 1 
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. 0000 
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OJ 
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CI 
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The following remarks concerning the translation produced ore jjat . 
germane to the construction of IT programs. They are pertinent only. to the » 

•^ PIT -> SPIT translations. 

(1) S0O01 is the first location of the first entry in the etate- v 
ment dictionary and contains a link to the (symbolic) location given to 

the statement whose identifier Is 1. 

(2) Locations within statements are of the form !.__..._» «*6.» 
IAAAC or LBCAA, which refer to the third instruction within the first 
etatement a^d the first instruction within the 29th statement reap. The 
first instruction of each statement is always assigned a symbolic location..^ 

(3) Symbolic locations of the form E refer to the entry 

.'locations of sub-routines (extensions).; Those listed in the example are to 
floating point arithmetic sub-routines, e.g., E00AI is the entry to the 
floating point addition routine. 

(h) ACC is the floating point accumulator. W refers to a temporary 
storage location. The symbolic locations of the variables are their names. 
(5) All constants appearing in a statement, after being converted 
into the appropriate fixed or floating point format,' are assigned an . 
absolute constant location. In addition, certain constants needed during 
program operation are assigned, as rehired, by IT. The same constant 
vlll. never be assigned more than one symbolic location. After the Uat 
'statement has been translated, these abcon locations with their respective 
values are punched out, one per card. 

(6) Appearing as (SOAP) comment's in the first and enauins Altera- 
tions of each statement is the original (EC) statement. A maximum of 10 
contiguous characters of the original statement may appear ae cpmments vith 
a single SOAP, instruction. 
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Tne following, table give© the name end meaning of all symbolic < .. 
addresses or locations which may be found in a PIT program. 

HAMS MEANING .. 

L tf-i CU Pi Pp M lne1iructJLon 'location 

I 0000 -j- n ' ' A fixed' point variable, In 

Y ^000 tn A floating point variable , Xn 

C 0000 + n ■' A floating point variable, Cn 

' W 0000. * n (0 < a g 9) IXemporary storage required by parentheses 
*• and/or quotation nesting 

A 0000 4- n &® absolute constant 

ACC " ] Floating point accumulator !'"■■' 

P 0000 ♦ n ( < n g 9) Parameter storage _ \ 

E 00 % 4a ^ ama of ( en1jr y t0 ) a subroutine 

S 0000 4» n Entry in the statement dictionary 

PC - F9 Is a temporary storage block used only for temporary storage 

of parameters (including those used by TOPE statements). The* floating point 

accumulator* ACC, is required for the floating point arithmetic subroutines. 

. She first four abeons, AO thru A3 will. contain the machine locations .or ■ Ai - 

SO 10, TO, CO respectively. Contiguous blocks of storage are assigned, , 

'. in the order _ given, to: 

a) variables (1/ t P C) 

b) statement dictionary (s) . 

c) absolute constants (a). 

d) the compiled program (L), including extensions .(El. 
®J« actual assignments are indicated on (SOAP) reservation cards, 

which are the last ten (10) cards punched during compilation. Tm first. 
instruction of the' -first statement j^IAAAA, always appears -in 650 location' • 

1992* 
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10. The Preparation o£ the Program \ 

• Each statement is. limited to 1U characters, inclusive of spaces 
but exclusive of the statement number. ' • 

Each statement must be terminated by an F (FINISH), .^ . 

The last statement to be compiled must be terminated by an FF 

(FINAL FINISH). 

The format for a statement card is as follows: . •■ 

Column 1 thru 4 Statement number aa 0000-f-a 

i. •• • 

-Column 5 *2 punch 

Column 43 thru 70 Up to 28 characters of the statement 

.* ■ Column 71 thru 72 Must be. blank . . ■•'-.' 

Column 73 thru SO Any desired comments . _ 

RULES! 

1. Only ©ne statement is permitted on a card . 

'2. The first character of any statement must appear in ■ _ 

column 43. _ ' , . 

• . 3, The F, when it appears either as a FINISH or aa the 

second character. of a.FINAL FINISH, must be in, column 7-0. . 

4 e If more than one card is required for a statement, columns 
I - 5 are duplicated on each card, with the F appearing in 

' Column 70 of the last card and the first character of the . . 
statement appearing in column 43 of the first card, . *' , _ 

. •• To facilitate punching, a master program card may be prepared, .In an 

obvious manner, for the 026 key punch. 

Because of storage limitation, IT requires the following information, 
" which is to be provided by a header card precee ding the program: 

' i) The maximal subscript numbers - nx , n Y , n^j - of the 
variables,. ' 

2) The .maximal statement number - ng 
« "■■.'" .-".' 3)" The total number - njj - of locations required by 

■\ extensions (including certain basic packages to be . 
described in section 12), . ' 
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Th© format of the header card is as follows: ^ ■■•".". 

Column 1 12 punch * , , . 

1 - 10 nj as 000000 0000' t "fij . 

11-20 n^ as 000000 0000 t »jf • 

' ■ 21 • 30 . eu as 000000 0000 t Dq ■'•-■'.': 

31 - lib ' ■ ' % as 000000 ' 000 ° t »3' • 

4l • 50 ■ £eroe© 

' \ '. 51 - 60 ' k H * 1999 -gnj *\^* agj* .*»,,.:.. ' 

' '.' .•*"'■ 00 00004$ 0000: ' 

6l -'80 Zeroes • .- 

'.• Th@ header eard for the sample polynohial evaluation would eahibit',.;. ' 

If tha degree of the polynOHdal were ten, the following values! . 

ng--.7 I K • 1725 ■ . 

©» £S2iS^£ grqgram deck for compilation consists ©ft 

t, ■ 

' ' ' a) Header card ''.-.'■ 

b) Blank card . / ... ■' . ■ 

c) Statements of the program . ..... 

' . If the' eompi3-er iss being loaded* the entry order 1st -. , . , ... . .' 

. .■■ ^./O^co^^r^^^^^^.^^^...^.. .-. .... .,.,,,..,:... .1;...,.. ,....., ..-», ...'., 

• ii) complete progrwn deck, and the console settings are ' ■ 

' . SWITCH ■ "■'.". ^^ 

• Storage ■entry ' ' , TO 1951 3000 + 

Program ' ^ 0P 

Salf.'Cycla' RUN 

Control . ..:■;/:. ' . ' ; .' BUH ^ .. 

Display ' x W™ . , ;... 

" Overflow .' • ™ . ;" • '- 

Error ^ 



The 533 BOAED Is that labeled SOAP -IT. . 

To initiate compilation,- press computer RESET, program SUBS, and . 

finally STABT (card reader)* • 

If the compiler has been previously loaded ,. set the storage entry . 

switches to 70 1999 3000+ and then proceed, as above, disregarding i). 
When the card read hopper is emptied, the END FILE _ key must 

be pressed in order that the entire IT 'program be completely compiled. 

The first and last cards punched are "blank" load cards vhich / 

i '■'■'.' 

ar®, to be discarded. _ "...'*.". 

Any number ©f program® my be compiled without reloo&ing the 
cccnpiler » 
11, Errors in Compilation 

Since the computer has a finite storage capacity,,, restrictions 
must be placed on both the size of- the compiled program and ©n the length 
of some of its parts . Compilation will halt whenever any of these restric 
. tlons Is violated; In addition, compilation will halt whenever certain 
errors In language structure are sensed, _ Such halts are indicated by 
the following console di splays .. ! < 

Address Lights i 123^ '- ■ 

Display Lights Clipper) : D x . . • D 10 as follows 

DjiyDoDj,. s 0000 f n , where n is the number of 

the offending statement. 

' I>5« P8" ° 

(D&D T , DaD 10 ) m a four digit couple which serves a® 

an error«type indicator whose- meaning 
•■ • • is 'given by the' following table. 

.The «?w©r may ariBe rrom the statexnent currently in canning 
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position in the 533 or from a previous iteration statement • . To detsrraim 
th® offending statement : 

1» Do not alter console status, 

2* Remove all cards from 533 HEAD hopper* 

3* Depress 533 READ start until all cards have Tpeen emitted. 

s 

k. The last three cards emitted have not yet b§en scanned* 

i 

5» The offending statement is then either on tfe$ fourth card 

(from the end) or, .if that statement is admissible, then 

»• 

the error has occurred in a previously scanned iteration 

' .' statement , in which case the statement number (D^D^IM)^) 
should be aero. 

ERROR TYPE' Dg thru Dj^ 

1* Statement too long, or no F in column 70 

terminating the .statements 00 00 

2* The number of instructions compiled from a » 

statement exceeds 93? 03. 01 

3. The entire compiled program^ including all 

constants and extensions exceeds 2000 words 1 03 02 

k,- The number of absolute constants thus far 

assigned exceeds 99s 05 05 , 

5* The number of output variables in a TYPE 

statement exceeds four (k): . • 90 83 

6* .'A subscript or an extension number > 2000 03 ©3 

7. An expression appearing in an iteration 

statement has a norm exceeding five (5): ' 72 66 

8. The power of a floating point constant 

exceeds 50 J ' 03 03 ■ 

9. A floating point exponent in a constant, e.g., 

1.23^ B 3. 1*1- §£ ~~ 



62 
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10* A subscript or extension number 

or connective number in floating 
point form i 



XI* The first character. of a substitution 
. statement -1^ not an 1, X 9 ©r € and/ 
or' not 'in column 1*3'*- 

ifit An odd number" of parentheses and/or 
quotations i 



63 73 69 73 62 99 

63 99 ■ 69' 99 63 99 

65 0-£? 88 73 ' 63 69 

67 .0" '<;% 88 99 69 69 

67 ; :: 99 62 73 "68 69 



50 .50 



69 66 

90 63 79 

90 69 
■9.0 88 

$9 89 

90 73 • 71 0)85 
79 89' • 186 




■ 13* A parentheses and/or quotation nesting. 

is greater than Mm '(95s • • 79 0. ? 

• 78 ? 

$$' il*.. An Inadmissible symbol pair (see Sect* 

'■.*■' e.s _i*r- g) # Alpha, Betas " ' Alpha Beta 



A 



«r.-f. 



Alpha> Beta 1 "the sta»3ar& two digit alphanumeric code assignesrts^; 
the 65© with the exception ' that the integers (90 thru 99) are all shewn 
as 99, while Alpha m 90 indicates that Bete is the- first' character of the 
statement* If BETA is 82 (8)' it may refer to. either "an S ©r an^Jn^tha- - 
original statement » 

If BETA' Is 73, (L) it may refer' t6 any. of L; IL; XL; -GL;- Xtt; 'ti&fXtiLy-' 

•If BETA, is any of 1 

I (69) I I AI ■ • 

Y\ (88) . * i'& 

it n&ay refer to: 
■■ G ' (63) ' • C ; AC; ■.■ "■ 

a (78) ■•■ Q ■; aq ■. __,/ 



i*3£ • 



A list of 650 assignment s for alphabetic characters follows? 



A 


12-1 


© 


61 


B 


12-2 


s 


62 


C 


12-3 


~ 


63 


D 


12-4 


» 


64 


E 


12-5 


a 


65 


F 


22-6' 


s 


66 


G 


• 12-7 


s 


67 


H 


12-8 


»' 


68 


1 ■ 


. 12-9 


s 


.69 


J 


11-1 


s 


71 


K 


11-2 


s 


72 


L 


11-3 


s 


73 


M 


11-4 


s 


Ik 


» 


11-5 


: ' 


■ 75 


0- 


• n-6 


r . 


76 


P 


11-7 


ss ■ 


77 


Q ■ 


11*8 


JS 


78 


R 


' 11-9 


S 


79 



S 


0-2 


S 


82 


T 


0-3 


« 


83 


U 


0-4 


a 


84 


V 


0-5 


B8 


85 


w 


0-6 


•a 


86 


X 


0-7 


-■ 


87 


Y 


0-8 


S 


88 


Z 


0-9 


S 


89 


Zero 





' s 


90 


1 


1 


s 


91 


■ 2 


2 


5E 


92 


3 


3 


s 


93 ' 


k 


4 


s 


94 


5 


5. 


s 


95 . 


6 


■6 


= 


96 


' 7 


7 


s 


97 '• 


8 


8 


s 


•98 


9 


9 


s 


99 


Blank ■ 






00 



.. . Except for cases where storage has 136611 exceeded^ the above 
(and other) error® may be removed by the correction of the offending 
statement* 

Iff' the offending statement is that in scanning position and is 
not the last statement in the .program, proceed as follows? 
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1) Do not alter console status. 

2) Place the uncompiled portion of' the Progjram, commencing 
with the corrected statement, In the READ hopper* 

3) Depress READ START* 

k) Depress PROGRAM START* 
Xf the offending statement is that in scanning position and is 
the last in the PROGRAM, proceed as follows: 

1) Set STORAGE ENTRY SWITCH: 00 0000 1111 + 

2) As above. 

' 3) As above. 
k) Depress COMPUTER RESET then PROGRAM START* 
If storage has "been exceeded, pressing PROGRAM START will cause. 

the compiler to: 

(i) punch a HALT instruction 

(ii) punch the absolute constants and reservation cards. 
If the flew of the entire program permits segmentation at this . 
Juncture, the. partial program produced Is an acceptable segment '(see ; 

section 11«X)« 

If the offending statement is not one of the above, re-examine 
the program, find the error, and recompile the entire corrected program. 

Several kinds of errors my require the Introduction of additional 
statements, e.g., parentheses Quotation nesting greater than nine; 
' number of instructions In a compiled ^statement exceeding 98; number of 
variables in a OTE statement exceeding four* 

An excess of abcons may be removed by introducing additional . 
variables uhose values may be entered as data via a READ statement* ■ 
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11.1 Segmentation 

Let an IT program, ff $ be segmented Into k subprograms t if$- s 

.Adjoin to each if * a HALT statement as its. final statement > I.e. 
that statement at which computation within^ 1 , halts. 

Let nj, jty, hq, be the maximal subscript numbers (see section 10) 
for the full program ff« - 

Let xig and ng be the maximal statement number and 'total ®pae& for 
extensions # respectively # for if'*'. 

Set K 1 m 1999 - (nj + 'r^ + n^ +■ 4 ) 

Compile (section 10) and SOAP (section 13) each fft separately, 
treating them aa distinct programs and using the following Information 
for the header card/ h*, associated with*/**: 

4 * By j 4 

4 r b c - ■ ; K 1 •■ - . 

The effect of the above procedure Is to preserve the -values of 
all variables common to all the ff *, i.e: toTf . Thus^ although no*/* 
way. refer t© another , all if* may refer to common variables* The HALT ; 
statement basically has the effect of 1 "computation on the present ff^ 
Is now finished! enter if M - as ^er section 15". 
12. Optimized Operator Subroutines 

IT assumes that the .compiled program will be augmented by 
subroutines ^ihich extend the arithmetic, input, and output capabilities 
of. the 650... • These subroutines are. available - for the convenience of 
compiler user® - In four (k) gaily colored packages* P^, P 2 , Po* Ph. 

..■■,;'."..■.'.>■'■-■•■ - ; -r '•■■:■'•''.' • '■ ■'• : ' ; ' : VV^V!:^;v«v^^ 

: ■' '■•■>. /.' '." ' "' ' ■' : ■' .■ .-■ ■ *■". •*<■ . '■' '■• ' *.•.'■ . . ■ ... •■ v '■'••'•' •' .'. ■- 

'..'- "•'■ . •.'■■■■.,■..•■■'•.■■ *'.... ■ ' : ' ■■..■;'••.•» '••.,' ;•.■ ■■ ■; •'. ' - .-. ' *,V.v,:';, v ,'-'« •••■; 

. r .V. .. ■ : . <• '-. ■ - !•■....'-■■■■.. ' „■ "J ■ • * ''. . 



Their tase is 'dictated "by the following rules? ; 

- ' • X) ' P, is to be used if exponentiation (?)_ is not used. # 

2) P P is to be used if exponentiation is used but only fixed 

point exponents occur. . <?-...> 



n > .* 



3) P is to be used if exponentiation is used but only 
'■■■•■ 3 boating point exponents occur. 

k) P, (the family size package) is used otherwise,; or .when 
^ in doubt as to the arithmetic of any exponent. 

Associated with each of these packages is a "reservation deck" - • 

V Ife, K 3 , B k - whose use .will be described in section 13, -The in- ■" 

eorporation -of the' packages, P^ Into the program will be discussed Ip ■ 

section 15» . • 

12 .1 Lengths ©f the Basic Packages .,. , 

p ■' 265 locations . 

p ' ' 379 locations. _ ;^V 
• p 386 locations V - 

. ' . "''■ Pv 500 locations v- ■ - 'va ; ;%5' ■■ 

03. swing' of the FIT Program .. ,,_.. 

. ©ie second, or assembly phase in the .preparation ©f a 650 program 
is the SOAPlng'of the'PXT program. The output of this phase is the _ 
desired machine program (SPIT) in -5 word/card output, with all symbolic 
' addresses having been assigned machine addresses by SOAP. 
', ' Th© order" 'of input for phase two is the following! 

l). 'SOAP ' 

'2) The last ten (K)) (reservation) cards of the output of 
phase one. 

3) The appropriate "reservation deck", R' containing the. 
. reservation cards associated with the selected sub- 

•..-'. "routine package* P^ » 
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. ..' ;' 


, . ■; ■.■"'•".■*■" •' • ■■' '■'• 

.■:-K.-.-."".>..e : .". ::■ 

-^ ■■.. -ji • • ■ • ••■ ■ ■ 


\' ■ '- • 
t 


' • "'•':.'■•" ■■■'i*& g ;; '??>;:•(:' 


;,'■• ' 


?'W;. 


-■■ '"*'• •'■-■'/ <•■'■"•"■' ■'* • ': 


.' ..' ''■ 





k) Any extensions (in symbolic SOAP form) which -were used 
In the original program, entered in arbitrary order* 

' Both P. and ? k contain the 10 X and LOG 1Q subroutines. "Hence If 

either of Po or P^ is used, these subroutines need not' be included. 

5) The remainder of the output of phase one* 

6) One (l) blank card* 

Board, console 'settings, initiation and END FILE procedure are 
the earn© as those used with the compiler (see section 10). If SOAP ha* • . 
already been., loaded, set storage entry switches to 00 0000 1000 + and 
proceed from step 2). Again, the first and last cards punched are to be 

discarded* 

1*K Data Preparation 

All required data, other than abcons, enter the computer via 
a READ statement. During translation, a READ statement is translated 
Into a sequence of instructions which, during program operation, 
activate the 6?0 read-in of an arbitrary number of ( data). cards . ■ Two 
types of input cards may be used* . ' 

' In type 1, data is entered on the cards - in' purely numeric 
form « a® couples, each consisting of the name of a variable and its ' 
assigned value. Up to four pieces of data (couples) may be entered per 
card* The names ©f variables are designated by the code X^1;T°42|0^3 
Each couple occupies two adjoining 10 column fields. The first, or name 
field is punched as follows! 

|2 V 0000 f a d^V^' vhere ) 2 ( is the variable *' s - code »"** 

n is the variable f s subscript j ^ thru d I0 is an arbitrary 
numeric personal identification, which must be punched. 
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\V Th@ second, or variable value field is punched as a' standard 

£te£ £i£2ii£H P-Qint or fixed point number , with negative signs 
being indicated by an 11 ©verpunch in the last column of this field.. 

The values assigned to fixed point variables must be integers j 
those assigned t© floating point variables must be in, standard floating 
point form. '■, 

The card format, then, is as follows s 



Column 3 12 punch . ?; « 

■1-10 first name V 

11 - 20 first value ■ '; 

21 * 30 second name ' ! 



If less than four variables are entered on a payd, the ten digit 
field following the last entry must contain all 2ero«$j any remaining 
fields may be blank* 

In type 2 cards the loading^ on one card^ of values for up t© 
seven contiguous variables is permitted* If the set of variables t© b® 
loaded is i Y I n through < Y n4 (k-l) , 1 <J k g 7, then the card 
format iss 

Col. 1-10 : 12 (i) 

< 2 V 000G~n 000k 

Col* 11-20 : value of first variable • . • • 
Col, 21«30 5 value of second variable 



As' before, if more than one data card is to be read at the same 
-tine, the last card must contain an 11 ©ver»punch in column 10. 

Notes Both types of data card's may be arbitrarily intermixed* 
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For both types, reading and storing will continue tjntU a eard 

containing an 11 overpunch in column 10 is read. 'Following storage of 
the contents of this card, the program proceeds to the. first instruction 
of the statement following the HEAD statement. 

The output of a TTES statement will have precisely the same fona 
as that required of type 1 data carte by READ statements, with an 11 over^ 
punch in column 10, Hence, a BEAD statement will read on^r one such card ' 

■ at a tine.- , 

»• 

15, Operating the Compiled Program ,., 

■ The complete program deck for operation consists of s 

1) The appropriate subroutine package* F 1 . . 

2) The entire output of phase t$o« 

3) ' The data deck* ;,;_' 

" Board, console settings, initiation and END F1IE procedure are 

•y 

m described in section 10 for compilation. ■ ' 
NOTES! \ 
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1) If the program contains md£* than one READ statement, or 
one such is to be' executed more than once, the data cards must 
be loaded in the order in which they will be required* 

2) The sign of the storage entry switches governs the output 
off Conditional Type statements as described in section 5*6.1. 

- 3) To restart the program, if it has already been loaded, 
set.' storage entry switches to 00 0000 1999+- I -Press CCMP RESET 
then PROGRAM START. 
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16. Us® of Extensions 

Descriptions of extensions, filed lexicographically in the 
Extaneion Library, contain at least the following informations 

^^BescrigUon^ ' Example 



Name and extension number 

Length (Nr« of storage locations used) 

Program representation 

Cl&as 

Range and Accuracy 

Arithmetic of. input 
output 



sin it 

Ok 

"22. E , v " 
Single valued -function of 
a single variable (real) 



Floating Point 
Floating Point 



Error Stops and Indicators 
Duration 

Program decks, In SOAP symbolic form will be filed by extension number. 
17« Llot of Currently Available Subroutines and Error Indicators 

A list of currently available sub-routines follows* The subscript 
J « 1, 2, Sp ^» means. that the sub-routine so Indicated is in the package p * 



Rtanb£r. 



20 
21 
22 



.Effect 
lO* 

'COS X . 

am x . 



Arithmetic 



Floating Point 



SOAP Repre sent atlon 

EOOAB 
EOOAC 

EOOAU 
EOOAV 
EOOAW 
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A description (contents) of the four packages follows v Here (L) and (ACC) 

refer to the contents of the lower accumulator and "floating- point "accumulator", 
respectively. 

PI contains: 



4 
5 
6 
3 

9 

14 

16 

1? 
501 

11 

12 



( L ) Floating point (— {h) Fixed point t EOOAE 

(L) and (ACC) _ pitting point <T— ( L ) Fixed point EOOAF 

(L) and (ACC) £— (L) / (ACC) 'Floating point . -EOOAG 

(L) and (ACC) <~ 
(L) and (ACC) <£— 



(L)_an4 (ACC) ^~»« 
READ 

PUNCH 

C L ) Fixed point (r 



(L) (ACC) 

(L) x (ACC) 
(ACC) /(L) 



(L) Floating point 



pz ££5!H!H? £1 pluLar 



(L) f- 



CD 



(ACC) 



(L) ^__ {ACC}t L ) 



. «( 




EOOAI 


t» 




EOOAJ 


Int ■ 




EOOAO 
EOOAQ 

EOOAR 
EOOTH 


Fixed point 


EOOAK 


Fixed point 


EOOAM 



13 (L) and (ACC) £ 



14 (L).and (ACC) £ 



(L) Float ( ACC ) Fix Floating point EOOAL 
(ACC) Float (L) Fix •' ' EOOAN 



P3 is PI plus EOOAB and EOOAC 

P4 is P2 plus EOOAB and EOOAC 

Errors within subroutines will cause the computer to stop, 
1) If the error cannot be corrected it will be revealed as a Storage Selection 
error; the address lights will contain 3 kjk^. Where possible this indicate® 
the k 3 th error' in extension number k 1 k z . In the following listing, L and 
ACC » refer to the Lower accumulator and floating point accumulator 
respectively, ' • * 
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' ••■ -*..- . 



,V • . •%, '•.«.■ 



H 1 k 2 

01 
02 
03 
06 
06 
08 
08 
08 

08 ' 
08 • 
08 
10 
.10 
11 
11 
20 
21 
22 



FUNCTION # ARITH 

LOG 10 L Float 

10 L Float 

Fix L Fix 

L/A GG Float 

AGC/L Float 
L-ACC\ 
AGO -L j 

AGO L, / 

V Float 
ACC XL 

L/A CO 

ACC/L ^y. 

Fix Fix 



ERROR TYPE . 
Negative Argument 
Result >* 10 50 



COMMENTS 

Argument in L 



Result 



10 



11 



Zero Divisor- 
Zero Divisor 



Results 10 5 ^ 



Upper contains 1 



L ACC 

ACC L 
AGO 



Argument zero, exponent 'negative. 



Float^ix 



Float 
Float 



Negative argument 

7 
A rgument P*»X0 



Argument laX? 



U 
ACC L 

vr' 

:OOS L 
SIN Lr ■ » 

If the magnitude of a result oi ;.=. ,,.-...«acing point, subroutine i© less 
than 10 s0 the computer will halt and with 1942 in the aidress register.' 
Pressing PROGRAM START will replace the result with sser© and continue 
the computation. ■ . 

18. Preparation of Subroutines tO;be used with the Compiler 
1. Assignrnant of Subroutine Number f n; 

a) Number must be an unaa signed one 

b) If output of SR is a single floating point (fixed pointy 

variable, n must be <(>.) 500 6 

■ c) If b) doe® not hold s then n may be any unassigned number, 
2„ To obtain the alphabetic mnemonic for the SR P decompose the 
SR number, n, modulo 26 s i.e., 

n - (26}j'«fk 



Wi 



V \ '''/ '_ ' ; '(-, 



Then the entry location of the SR is given the symbolic address 2 00 <* P* 
vhere a) /5 is the (kfl)st letter of the alphabet, and b) cc is the- . _ 

(5*1 )st letter of the alphabet # • 

* 
All symbolic locations (other than the entry location ) referred to ' . ■ • 

within "the SR are given-symbolic locations «cf -m , ^here m i& as integer 

which identities the particular location* 

3* -All subroutines must Jbe closed* 

k* To determine ■ the input parameters of the subroutine I ....- 

Let ihe SR be a function of the k variables vl, v2, ...^ vfcj l«e*t 

98 n E, vk, V(k-l), ..., VI" 

""''■•■• :. " .Let (U), (t),. (D) refer to 'the contents of the upper ace** lover . 

ace.; ./.and distributer respective ly. ' '" 

linen entry conditions are as follows? • . 

kdfi.as (L) = vl ; (U) = sero | (B) = Exit instruction ; 

k >li (L) = vk $ (U) = sero % '(*>") " 00 P 0000-frJ 0000 *m , and" 

contents of m s exit instruction 

contents of P 0000 + J « v(k-l)" 

contents of P 0000 <+. J-l = v(k-2) 



5„ Vaxiablef or$ assigned symbolic address according to their sub&e»ipt 
.number , k* and are written:! Y>0000+k . 

6* If on® of the input parameters is a fixed point variable , <whieh is 
to be used to generate a connection to sots© statement, the connection 
must fee made via the Statement Dictionary- using the symbolic address 
S OOOOfk if the popnection is to the kth statement. 
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._,'» : -;J'-. .,..^'- : III' -^techniques' For. 'Using Ihe Language ,•.-..,■'.' ■ ■■' "",.', '"'■ .'•'•-■■''.■ 
In' the following^ several typical situations will b© illustrated*- ' , 
1* Extraction of the integral and fractional parts of a floating ■■".' '■ 
point variable, say Yl. ,. '.'■.•■..■ 

ll II «4«~ XL 

2i Y2 -»- II '''."■■'■■' •'■.'■ : ■ 

! I ' ... ' 

3s Y3'«*~ XL - Y2 / • .',- ; ' * 

'II is. the .integral part of '.XL in .fixed point 'form* ": ■"•■•". ■ ■ .■'/■'' •'. ':■: 

' . ■■ '/ • '-■• ' ■ ; ' . ;.•"■■••■ y ; '•. ■•■■■ ■■■ Vo' : ^'\'^-.KA 

' Y2 is the "integral part ofSYl' in floating point form* ■":'"*, >;^.J^,'v- 

• . . /.,.,. ,13 i® the ...fractional., part of' v tl : Its' floating point forai*- ';>''. •■v:- -•::•..'" : \. 
'.;■';"■.•, ..%:':-/•■ w >- '''■""■' " ' .. ' '' , ' .'■■,. '.. ,' ''■ • ■ ■■■;''.'••■ ■■■'■' ./••." : : '' , ■■'•' 

•":\" i -""- :. • , -. ; ■ ,, • : ■ .2.-., Representation 'of -..the ( oi(Sh.t>'{8)' : 0ieriif leant ' dig$t© 'pf w tfleatlBg' ■ 

■.•-v. ;.'■.. -.';;. .->•;;' "xv 1 /-' ■'■^■'•H'.-V- .'*.* •• ,. ■• >••■-.'■" : '.;■-.;',: ^"i'W ■•'■•;':';' '•■". ■■ ..■..,•• .:•■•' •■>«'^V'.. •■ •• 

4 . ..»."."*■•■•■*■;. :■'■■ C:. v .-.;t:.:rw..'» :■■'-:■■■ •■ .• ;.■'-■'.•. ;:••.• -i .»v'-;A^«,^. '■--■* ■■• '" 
, >-- r <;-";^./ 1 "^ say XL ^ as. e. fixed 'point integer*. '' 

•' ll OTlPn>lJX.V^v;,,.,.. .-,-, ■\>>,:^ ; >V^;'--'v-v ; : 

,w.v. -■•■ "v. 2 - 5 jj ? yi *Ci B T ' ' ; / 

3: II -e- XL ■■'■'■•-: ■'?• ; '-' i " : ."' ' ' : "' 
hi E 

'V" 4 '5: n -«- n^'to/^^" ,! '"' ■"■' 

• I 6: G 2 



'?■-. 



r * m .« ! <^«*f* v ^ • 






*(*>?•■.■ ? 






: .'-WA>>; 



V, | « • 4 » - ■ ■"■-■■ - ■ ' ■ ■ -•■'■ --— ■■-•■- ' 



>;! > • ! : | ! 7§ XL -<— XL / 10, 

8: Gl ■■ .-■'■''^' :V H ••*<■ ' "*'; '*' " ' ':V. ^ ■■»:.■'/■ '"V "^ 4 



' ' ."" 3« ■treatment -of arrays. ' : ■.■...:.■.■■.' ■■ ■■■'', ■••*'.'•'>•"■ ■'- 1 '' v '''--' 

.tir'WY^vrp.} f-\: ,■:.;.*■•; ,. . •. . . . .■...-.... ■' : ';■.... .„■-•■.■ 

. .'. . ... ' .a) -Vector ss .;.-.. •'•'■''••'•' ■■:■•.»■' • ■ ..,-:. . ; ,.^-.:v f». : -.-. J ?...'. . . 

'•'"'■ . » ' ■ ' • • |! ■'■■.';•' '«•''■'.•■ " • 

:.'-■■•;■■•■■,'• " (i) XT? is a vector yhose components ar# i4entified•*by ,: "•' , "" 

the range or the variable 17* ©•?•# if- the range, of 

If is 18 < 18 > a • .!', then .the components of XTf 

' are.YlS, XL9, Y20,,*;'/ Y(l8> n - I).- '. *...•.:' k 
■' " " • "■ ■'''■'. .■ . ' '. • ' "^ •. 

(ii) Y(l7 + II) is -a vectoi*' whose 'components ;ar^ identified. ''. : 
, , • • • :■■.-' •■.■•■•:..• ^-' . :_-,.■_ ■;. .'.. 

• by the range of II when 17 is fixed as the "storage base* 5 

of the vector. '■■-... ' . .. • .. 
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For example, a program to add two vectors "of dimension 
six (6) whose storage bases are 3^7" and 18 respectively i&t 

K II. 0, I, 5.. •■' ' ■' '■ 

k: Y(I9+-I1) <— Y(I8+I1)4-Y(I7H-I1) , ■ 

where 19 is the storage base of the sum, 

b) Matrices? ' . •' . . . ■ 

(i) Let XI be the row dimension, of the matrix A represented 

as the matrix YN. ' '"• 

2 ■ * ■ " 

Examples To carry out B a A . " 

'•■ •' 

i Program 

1: 4, 12, 0, 1. 1-1, ' ' • . • 

2:. 4, 13, 0, 1, 11-1, •;'.,,.;' 

3s , GN (12, 13) « . ' 

4: 4, 14, t 1, 11-1, . '■".■ 

Si CM (12, I3)£~CN (12, I3)+YN (12,, 14) x YN (14, B) 

■6:_ ■' 12 f— 11 ■ 

7s H - ■ - . 

The matrix B is represented as the matrix CN, If CN is to-be 
used ia further calculations its (row) dimension must be in 12* 
Statement 5 seta the correct dimension. . 

'' _ (ii) het II be the dimension, 12 the base of the matrix A.' 

Then* if 13 and 14 are the row and column index ' 

respectively, (which range from to their respective dimensions 

< ''■■■■■ 

less one) of an element o£A, thejj[3 f 14 J element of A will be: 
Y( 12 +14 + II X 13) if A is listed row-wise,' and ' 
Y( 12+13 4* II X 14) if A ia listed column-»wise e 

Examples: To carry out G s AX B, where 

■■ '* - \\ is the dimension of A, B, <SJ» 
„*'..■ ' 

■ 12, 13, 14 are the storage base® of A*B e C respectively. 
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Program (l) ' ■'.'./_, _';'.. 

Is 6, 15, 0, 1, 11 - 1, • ■ ' " . 

2s 6, 16, 0, 1, II - 1, . , 

3: CI -«— 0. . ' .•'.... 
ht 5j_TT> 0, 1, 11-1, 
5t .01 h-CI -f Y(I2+. 17 f-Il 3C-I5) X "' ' 

Yds ti6 fii.sc.rr) . 

6s Y($f fl6 +11 x 15) ««- CI 
• '7% E 

23ie above program minimizes* in a s$nse, the number of statement© 
and 'the number of Instructions compiled® Bale following program*, on the other. 
'hand, .vlll reduce the time of operation at the -cost of a somewhat longer 
program® • , , ' 

Program (XX) 

Ot k, 15, o # l, 11 - l, . 

. . It 18 -«- 11 x 15 ' ■'.':.' 

Of fc, 16, o, l, ll - i ,- ' ■ • 

Ot 19 4— 16 -f ill 
0: 112 -«- 13 + 16 . 

Os CI ^hO, 
_ Ox 3/17., 0, 1, 11 - 1, 

3i CI «£— CI * 1(112 + II x 17). 

• . 4s TO *• CI 

Ot .H ' 

TOSSs • The number of entries in the Statement Dictionary can oe 

greatly reduced by assign£pg a sero statement number (as above) to 
all statements not referred to within the program • However 9 any 
statement which J.mmediately follows an iteration, statement must ■ 
have a unique, jion-zero statement number^ 

i As 



km A problem which is more representative of pure decision procedures 

is that of finding the minimum of a set of N number's • A flow chart isi 




Y(I1 +12) 



'3 



A 



£ 



11 + 1 



-HX1>X3 



/• 




7 W 



Again, two representations of a compiler program follow* ' 
Program (l) . . " 

P. -4-1 ' ' ■■'-.: 

CI -«- Y(H'-*-I2:) 
11 -<-. II ■+ 1 
6?ff - I 1 > 13 - 1 

G 2 IP X{11 +. 12) ■£ CI 
1 ' 

H ' 
Program (ll) ' 
CI -*- H2 ■ ■ 
5, XL, 1, 1, 13 - 1, 
5 IF 1(11+ 12) > CI 
CI -*- Y(11-+.J2) 
CI -4- CI 

B 
Note. that, in 'the second program, it was necessary to add the 
"dummy' r statement, 5, in order ( that th© relational .statement, .3, 
could be imbedded within the range of tbe iteration. Although (ll) 
is a shorter program than (l), it turns out that the length and 
operation time of the compiled program will "be equivalent. 
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IV . Program Checking and Corrections ' 

SSie program can only be checked at the compiler level by th© liberal 
insertion of conditional TYPE statements to exhibit intermediate results, 
and thus^ the flow. 

Corrections should be made at the. compiler level either by correcting 
statements and recompiling the entire program, or by recompiling only 
those offending statements in the following manners 

ae correcting. statement ( or set of contiguous statements) i® 
prefaced by a" header card identical to that described in section 12 with 
the following exception, If k is the position of the statement ( ©r that 
of the first of a contiguous set) being corrected, then column® "6l -■ y© ©f 
the header card must contain 000000 0000 4 k - 1 . 

Toe, procedure outlined in section 12 is then followed* Prior -to ' 
RESOAPing the entire program, the compiled -correction (s) either jreplaee 
the erroneous statement (s) or is appended at the end of the. program* 
KOSSSi (l) Correcting statements must not involve any absolute 

constants . toy that are required may be assigned' ae variable® 
whose values may be entered through a REM) statement, Kile ' 
may demand an Increase in the maximum index of the I, ■ Y, • ©r C 
• variables previously assigned* 
(2) No correcting statement may terminate with an FF • 



HOTEi Portions of sections I and II are' to appear as a contribution ■ 
by the first two listed authors to the Proceedings of a Symposium on 
Automatic Programming' issued by the Franklin Institute and based on paper 
presented at that symposium at the Franklin Institute January Z5* 1957* 
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PCM 


WO 001 




AND 


0738 


71 


• 1977 


0977 


187 




STU 


WO 001 


FINI 


PUNCH 


0977 


' ■ • 21 


1977 


0691 


188 


PS 14 " 


RAU 


U8AR 




FETQH WORD ' 


0486 


ft 


0516 


0721 "".*" 


189 


PS 14 A" 


AUP 
RAL 


PS14A 
0000 


.8003_ 


IN U8AR 


0721 
0624 " 


0624 
0000 


8003 


190 




. 08.05* 


191 




STL 


TEMPI 






0805 


m 


0709 


0712 . 


192 




'"' BMI 




PS16- 


IF WORD IS 


0712 


■ 44 ■ 


0915 


0566 '• 


193 


. „ , 


RAL 


UBAR 




NEGATIVE 


0915 


.. _. *3' 


0516 


0771 


194 




SLO 


FFTYl' 


"PS 15 


ASSIGN IT 


0771 


1-6 


0357 

6004 

'$674" 

0853 


1161 


195 


• P$X5 


' SRT 

LDD 


00Q4^ ; 
'PS15A?' 

TEMP* 1 ? 

wooof : 


SR3 


A SYMBOLIC ■ 


1161 
0821 


-It 


0821 


T 196 


LOCATION — """ 


0367 


197 


PS1»A 


AUP 






0674 


10 


0757 


198 




STU 






0757.' 


21 


:i977 


0830 


199 




RA8 
'"" SLT 


TEMPS ■ 

0002 ; 


..psi*.!...... 





0830 
0566 


67 
■ 35 


0709 
©002 


0566 


200 ' 


, PS16 


0673 


201 




STL 


TEMP3 ! ; 
8003 v 


EXTRACT 
OPERATION 


0673 
0762 


_20 

60 


©709 
! 8003 


0762 


202 




RAU 


" 0969 


203 




SLT 


0006 ! 


1 


FROM WORD 


0969 


35 


! 0006 


0983 


~ 204 




""" STU 


TEMP4 






0983 


21 


: 0788 


0741 


205 


. " 


ALO 


PS18 




FETCH OP' 


0741 


.. 15 


'0544 


0249 


206 




STU 


TEMPI 




MNEMONIC 


0249 


21 


■0509 


0812 


207 




TLU 

RAU 


00001 
0000 


. 8002. _ 


FROM TABL,£ 
AND CHECK 


0812 
0544 


_ S4 
60 


!t0600 
"0000 


8QQ2__ 
0855 


208 


PSIB ■ 


209 




SUP 


TEMP4 




FOR A0MIS5 


0055 


ii : 


','07 88 


0593 * 


210 




SRT 


0006 




STORE OP IF 


0593 


30' 


0006 


0807 


211 




N2U 


ALARM 




ADMISSABLE 


0807 


. 44-. 


0827 


0862 


212 




STL 


W0002 


PS27 ' 




0862 


' 20 


1978 


0781 


213 


p$2? 


RAL 

SLT 


TEMPS 
0004 


- ' — - 


EXTRACT 
DATA ADDRESS**"" 


0781 
0763 


35 


0709 

0004 


0763 


214 


0723' 


215 




STL 


TEMPS 




FROM WORD 


0723 


■ .20 • 


0709 


0912 


216 




RAU 


8003 




OUT IF D IS 


0912 


' 60' 


8003 


1019 


21? 




N2U 




PS19 . 


NEXT LOC 


1019 


44 ' 


0773 


0724 


218 




SRT 


0001 


• 


OUT IF D IS 


0773 


30 


0001 


0779 ■ 


219 




NZU 


'PS18A 




NOT ACCUM 


0779 


44 


1033 


0734 


220 




RAU 


ACCUM 


PS 19 




0734 ' 


60 


073? 


0724 


221 


PSUA . 


SRT 


0002 




OUT IF D NOT 


1033 


30 


0002 


0739 


222 




NZU 


PS20 




ADDRSS WITHN 


0739 


44 


0643 


0594 


223 




. SRT 


0003 




STATEMENT 


0594 


30- 


0003 


0953 • 


224 




SLO 


FFTYl 




GENERATE 


0953 


16 


0357 


1211 . : 


225 




SRT 

LOO 


0004 


"SR3 ' 


MNEMONIC 
IF D IS IN 


1211 
0871 


30 
69 


0004 
0774 


0871 ; 


"~" '226 




0367 


227 




AUP 


TEMP9 


PS19 


STATEMENT 


0774 


10 


0853 


0724 


228 


' PS20 


STL 


TEMPI 




GENERATE 


0643 


20 


0509 


0962 


229 




RAU 


8003 


> 


MNEMONTC IF 


0962 


• 8 


8003 


1069 


" ' 230 




SLT 


0004 




D IS NEITHR 


2069 


0004 


0829 


231 




AUP 


PS23 


• 8003 


NEXT NOR IN 


0829 


10 


0932 


8003 


"-"■" 232 


~~""P$23 ' 


RAU 







STATEMENT 


0932 


60. 


0031 


0985 


- ■ 233 




STU 


TEMP2 






0985 


n 


0490 


0693 


234 




SUP 


D0009 




OUT IF D IS 


0693 


u 


0040 


0595 


235 




NZU 


PS23A 




NOT EXTNSN 


0595 




0299 


0900 


236 




RAL 


TEMPI 




IF EXTENSION 


0900 


.'' ■■Ss." 


0509 


0813 


237 




SRT 


0007 _ 




GENERATE 


0813 


• 3»0 


0007 


0879 


238 




"" LOO 




'SR3 ' 


MNEMONIC 


0879 


*' '69 ' 


0982 


0367 


239 




AUP 


D0009 


PS19 . 




0982 


10 


0040 


0724 


240 


PS23A 


.RAU 


TEMPI 






0299 


■ 60 


0509 


0863 



3..0<f*~ 



■.«*?■ 



241 




SRT 


0007 




GEN NUMERIC 


0863 


. 30 


242 




LDD 




PS100 


TAG IF DATA 


0929 


69 


243 




NZA 




PS23B 


■IS NOT 


1032 


45 


.'44 




AUP 


NONON 


PS23B 


EXTENSION 


0536 


10 


245 


PS23B 


AUP 


TEMP2 


PS19 




0787 


10 


246 


PS19 


STU 


W0004 






0724 


21 


247 




RSU 


FLAG 


PS25 


NEGATIVE 


1083' 


61 


248 


■ " FLAG 


10 


0000 


0000 


FLAG IF DATA 


0365 


10 


249 


...PS25 


STU 


FLAG 




POSITIVE 


1119 


...: SI 


250 




BMI 




' PS26 


FLAG IF INST 


0018 


• 46 


251 




RAU 


W0004 




RECYCLE 


0921 


60 


252 




STU 


W0003 


PS27 


IF D IF NOT 


1085 


n 


253 


.... p S26 


RAU 


UQAR 




PUNCH AND 


0672 


, &o 


254 




AUP 


ONE 




RECYCLE TO 


0971 


«.. |0 


255 




STU 


U8AR 




PSX3C IF 


' 1135 


„4;£ i 


256 




' SUP 


U 




U8AR NOT 


1169 


':' 11 


257 




N2U 




PS28 


EQUAL TO 


1219 


44 


258 




LOO 


PS13C 


PS133 


U 


0823 


>9 


259 


PS28 , 


RAL 


S 




' S EQUALS S 


0824 


■ ..:■ #5 


260 




ALO 


©NET 




' PLUS ONE 


1261 


; 15 


261 




STL ■ 


S 




AND FORM 


1311 


....... ao 


262 




LDD 




SR3 


NEXT LOCATN 


0660 


■■ ' >9 


263 




LDD 




SR3ED 




0913 


69 


264 




RAU 


W0003 






0666 


• 60 


265 


• 


N2U 


PS30 


...PS29 




1133. 


44 


266 


- PS30 


RAU 


W0004 






0837 


60 


267 




NZU 


PS32 


PS31 




1185 


.., 44 


268 


— ps32 •■• 


LDD 


TAU 


P5X33 




• 0789 


"69 


269 


__.PS29 


RAU 


TEMP9 






0838 


■ £0 


270 ' 




STU 


W0003 


PS30 


1 


0857 


. 2X 


271 


■ PS31 


RAU 


TEMP9 






0540 


■ ISO" 


272 




STU 


W0004 


>S32-"" 




0907 


' ■■ : 21 


J73 


TAU 


NOP 


0000 


PS 




1960 


....:.;; 00 


274 


TAU1 


NOP 


0000 


PS 




0147 


. . 00 


275 


SRI 


STD 


EXIT 


1 SR1E 




0341 


. ;24 


276 


'*"' """"* 'SRIA " • 


SLO 


1NCR 


SR1E 




0950 


16 


277 


SR1E 


SLT 


0002 






0497 


35 


278 




N2U 




EXIT 




1053 


44 


279 




SLT 
LDO 


• 0002 
SRID 




SRI SLOCKS 
■ KK CONSEC 


0957 

0963 


35 


280 




' 69 


281 




SDA 


SR10 




LOCATIONS 


1269 


22 


282 




' SRT 


0004 




FROM XXXX TO 


1319 


30 


283 




LDD 


SR1L 




YYYY 


0979 


69 


284 




SDA 


SR1L 


8001 ' 




1235 


22 


265 


SRID 


STD 
LDO 


0000 
0000 


SRIA 
SRID 




0716 
1082 


24 


286' 


■ SR1L 


69 


287 


I NCR 


00 


9998 


9999. 




100-3- 


00 


288 


' '"" '" " SR3 "' 


STD 


EXIT 




■ SR3 CONVERTS 


0367 


24 


289 




DIV 


tws r x 




THREE DIGIT 


0547 


14 


290 




STL 


TEMPI 




NUMBERS INTO 


1050 


20 


291 




LDD 


SR3B 


SR3A 


TWO LETTER 


1012 


69. 


292 ' 


. --g R3A - 


STD 


TEMP2 




MNEMONICS 


0868 


24 


293 




AUP 


ONET 






0743 


10 


294 




SRT 


0001 




. * 


1361 


30 


295 




N2U 




SR3A1 




0717 


44 


296 




SLO 


NINEO 






1021 


16 


297 




nzu 




SR3A2 




1029 


44 


298 




ALO 


STL 


'SR3A2 




1183 


'15 


299 


SR3AX 


SLT 


0001 






0722 


35 


300 




. sup- 


8001 


TEMP2 




1079 


11 



0007 


0929 


1032 


1035 


0536 


0787 


0634 


0787 


0490 


0724 


1980 


1083 


0365 


1119 


0000 


0000 


0365 


0818 


0921. 


0672 


1980 


1085 


1979 


0781 


0516 


0971 


0630 


1135 


0516 


1169 


0515 


1219 


0823 


0824 


0514 


0638 


1957 


1261 


0356 


1311 


1957 


0660 


0913 


0367 


0666 


0370 


1979 


1133 


0837 


0838 


1980 


1185 


0789 


0540 


1960 


0638 


08 53 


0857 


1979 


0837 


0853' 


0907 


1980 


0789 


0000 


1234 


0000 


1234 


0644 


0497 


1003 


0497 


0002 


1053 


0957 


0644 


0002 


0963 


0716 


1269 


0716 


1319 


0004 


0979 


1082 


1235 


1082 


8001 


0000 


0950 


0000 


0716 


9998 


9999 


0644 


0547 


1000 


1050 


0509 


1012 


0965 


0868 


0490 


0743 


0356 


1361 


0001 


0717 


1021 


0722 


0874 


1029 


1183 


0784 


0636 


0784 


0001 . 


1079 


8002 


0490 



Z.OSf 



301 
302 
303 

- .. i 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 
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318 

319 

320 

321 
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323 
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328 

3 29 

330 

331 
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3 35 

336 

33? 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 



SR3A2 
SR3B 



SR3C 

SR3ED 



SRM 



"SRN2' 
'SRHB 



SRN6 
SRM4 
SRAC 



SRACR 



5 RAO 
SRAC2 

SRAC5 



SRAC3 



A 10 
SLT 
5RT 

AUP 
LOO 
SLT 
STD 
RAU 
SLT 
AUP 
STU 
STO 
. RAL 
NZA 
RAL 
SLO 
AUP 
SRT 
RAU 
RAL 
ALO 
SRT 
ALO 
STL 
SLT 
Hl\J 
RAL 
SRT 
RAU 
NZU 
SCT 
AUP 
SUP 
RAU 
RAL 
STU 
STD 
RAU 
STU 
RAU 
SUP 
NZU 
RAL 
ALO 
STL 
ALO 
RAL 
SLO 
NZA 
RAL 
ALO 
ALO 
RAL 
RAU 
AUP 
STU 
STU 
SUP 
BM! 
AUP ■ 



NINEQ 

..0001 
0002 

TEMPI 

SR3C 
0002 

EXIT 
8003 
0004 

LOCUS 

TEMP9 

EXIT 

ARITH 

SRN5 

SRN2 

MU 

N 
0010 
8003 

MU 

FFTY1 
0004 

NBAR 

TEMPI 
0008 

SRM 6 

N 
0002 
8002 

0000 ■ 
TEMPI 
' 8002 

8003 
OTREY 
N 

EXIT 
FOUR 
•JAY 
JAY 
A0001 

JAY 
ONE 
JAY 
SRAC1 
A0001 
N 

SRACR 
JAY 
RAL 
ABCON 
8002 
JAY 
ONE 
A0001 
JAY 
ABCNT 

8001 



TEMP2 



SR3A 
EXIT 



EXIT 



8002 
SRN4 ': 



SRN4 



SRN4 
•LARM 
EXIT 



SRACR 
SRACB 



8002 

SRAC2 

SRAC5 



EXIT 



GENERATE 

SYMBOLIC 
. LOCATION 

FOR NEXT 
. STATEMENT 

SRN FORMS 
NUMBERS 

OUT IF FLOAT 

ING POINT 

FIX ASINTEQ"" 

ER IF FIXED 

POINT 

FLOATING PT 

EXPONENT IS 

MU PLUS ■"" 
FORTY NINE 
PLUS NBAR 

" MNTISA ALARM' 

"AND MANTISSA' 
IS 

N TO 8 SIG 

NIFICANT FIG 
. URES 

ALARM 

ABSOLUTE 
CONSTANT 
ROUTINE 

OUT IF JAY 
EQUALS ASCNT 

INCRMNT JAY 

FETCH JAYTH 

CONSTANT 
RECYCLE IF N 
EQUALS JTH 
CONSTANT 



SRAC7 



H STORED AS 

NEW ABCON IF 

ABCNT NOT 
EXCEEDED 



0784 
1129 
0965 
1071 ' 
1013 
0766 
0370 
0597 
0905 
1015 ' 
0B73 
1100 " 
0647 
1063"' 
„ 0767 
0775"* 
0955 
0670 " 
1027 
0816" 
1005 
1411 

n 21 _ 
0697 

1062 

0831 

0686 

0839 "'" 

0645 

1103 

1007 

1179 "" : 

1113 

tin" 

1335 

. 1295 
. U30 
0747 
1055 
1163 
1065 
0887 
07fl 
111S 
1365 
1213 
0866 
0937 ' 
0889 
0793 
1165 
0923 
088?. 
0492 
1215 
1435 
0736 
1263 
1221 
0924 



15 
35 

30 
10 
69 
35 
24 
60 
35 
10 

, 21 
24 

. 65 
45 

_ &$ 
16 
10 
30 
60 
65 
15 
30 

_ IS 
20 
35 

44 

65 

30 

60 
"' 44 

36 

10 

11 

60 

65 

21' 

24 

60 

21 

60 

11 

44 

65 

15 

20 

15 

65 

16 

45 

65 

15 

15 

65 

60 

10 

21 

21 

11' 

46 

10 



0874 
0001 
0002 

0509 
0766 

. 0002- 
0644 
8003 
0004 
0918 
0853 
0644 
0358 
0816 

„. 0670 
0750 
0484 
0010 
8003 
0750 
0357 
0004 
0342- 

" 0509 
0008 
1335 
0484 - 
0002" 
8002 
1007 

- oooo 

0509 

8002 

8003' 

0888 ' 

0484 

0644 

1200 

0710 

0710 

03 83. 

0791 

0710 

0630 

0710 

0866 

0383 

0484 

1163 

0710 

0968 

0776 

8002 

0710 

0630 

0383 

0710 

0916 

0924 

8001 



'ii2V--- 
0490 ;;. 

.1071, 
1013* , 
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0644c.' 

0.597,:;''- 
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1015'; 
.'0873' 
0644 
0647 • 

. 1063 

0767 

• 077 5 _ 

0955 
' 8002 _ 

1027 

1285 

1.005 

1411_ 

1121 

0697 _ 

1Q62 

0831 

0686' 

0839 _ 

0645 ' 

1103 ' 

1285 

1179 

1113 ""'" 

^71. 

1285. 

0332 

0644, 

747 

105,5 " 

1163. _ 

1065 
0887 
0492 ■ 
1115 

1385 

1213 _ 

8002 " 

0937 

0889 

0793 

1165 

0923 

0881 

0644 

1215 

1435 

0736 

1263 

1221 

0825 

0931 



3.o6 



"361 




AUP 


SRAC6 




NEW AS CONST 


0931 


10 


0834 


0939 


362 




LDO 


N 


8003 




0939 


69 


0484 


8003 


363 


SRAC7 


RAL 


OFIVE 


LARM 


ALARM 


■ 0825 . 


65 


0528 


0332 


364 


ABCNT 


00 


0099 


0000 


RAL AI PLUS 


0916 


00 


0099 


0000 


65 


SRAC6 


STO 


A0001 


SRAC5. 


JAY IN LOWER 


0C34 


24 


0383 


0793 


366 


PS100 


STD 


FINI 




INTERLACE 


103 5 


2'* 


0691 


0694 


367 




SRT 


0003 






o a, 'i i* 


30 


0003 


1153 


368 




.SLO 


6002 




FOUR 


.153 




3002 


1461 


369 




SLT 


0001 






:.-6: 


35 


0001 


0817 


370 




A 10 


8001 




" DIGITS 


0317 


15 


eooi 


.0875 


371 




SIT 


0001 






0375 


35 


0001 


0981 


372 




SLQ 


8002 






0981 


16 


8002 


0989 


373 




SLT 


0001 




WITH 


0939 


35 


0001 


0695 


374 




ALO 


8001 






0695 


15 


8001 


1203 


375 


• 


SLT 


0001 






1203 


35 


0001 


0759 


376 




SLO 


8002 




""'. ZEROES 


0759 


16 


8002 


0867 


377 




SLT 


0001 






086?^ . 


35 


0001 


0973 


378 




: .ALO 


8001 






0973 


15 


8001 


1031 


379 




...S4J. 


0001 


■FINI ' 




' 1031 


35 


0001 


0691 


380 


D0001 "" 




i 




' ' '■ "SYMBOLS FOR 


0032 


69 


0000 


0000 


381 


D0002 




Y 




PROBLEM 


0033 


88 


0000 


0000 


382 


D0003 




c 




VARIABLES 


0034 


63 


0000 


0000- 


383 


D0004 




s 






0035 


■82 


0000 


0000 


384 


D0005 




A 






0036 


61 


0000' 


0000 


385 


D0006 




P 






0037 


77 


0000 


0000 


306 


D0007 




w 






0038 


86 


0000 


0000 


387 


D0008 


00 


0800 


0000 




0039 . 


00 


0800 


0000 


388 


D0009 




SOOAA 






0040 


65 


9090 


6161 


389 . 


00001 


©0 


0075 


7677 


MNEMONICS 


0600 


00 


0075 


7677 


390 ' 


00002 


©0 


0168 


7383 


FOR 


0601 


00 


0168 


7383 


391 


00003 


00 


1061 


8477 


REQUIRED 


0602 


00 


1061 


8477 


392 " ' 


00004 


00 


1561 


7376 


OPERATIONS 


0603 


' 00 


1561 


7376 


393 


00005 


00 


1682 


7376 




0604 


00 


1682 


7376 


94 


00006 


00 


1761 


6162 




0605 


00 


1761 


6162 


5^5 


00007 


©0- 


1882... 


'.6162 




0606 


00 


1882 


6162 


396 


00008 


■ 00 


1974 


7788 




0607 


00 


19,74 


7788 


397 


00009 


00 


2082 


8373 




0608 


00 


2082 


8373 


398 


00010 


©0 


2482 


8364 




0609 


00 


2482 


8364 


399 


00011 


00 


• 3582 


7383 




0610 


00 


3582 


7383 


400 


00012 


" 00 


4575 


8961 




0611 


00 , 


4575 


8961 


401 


00013 


00 


4662 


7469 




0612 


00 


4662 


7469 


402 


00014 


■ 00 


6079 


6184 




0613 


00 


6079 


6184 


403 


00015 


#0 


6179 


8284 




0614 


00 


6179 


8284 


404 . " 


■ 00016 


0© 


6464 


8579 ' 




0615 


00 


6464 


8579 


405 


00017 


■ m 


6579 


6173 




0616 


00 


6579 


6173 


406 


""" " 00018 " 


. 00 


6679 


8273 




0617 


00 


6679 


8273 


407 


00019 


®® 


6779 


6162 




0618 


00 


6779 


6162 


408 


00020 


€0 


6879 


8262 




0619 


00 


6879 


8262 


409 


00021 . 


00 


6973 


6464 




0620 


00 


6973 


6464 


410 


00022 


00 


7079 


6482 




0621 


00 


7079 


6482 


411 


00023 


.9© 


7177 


6368 




0622 


00 


7177 


6368 


412 


v 00024 


'.00 


9968 


7383 




0623 


00 


9968 


7383 


413 


A 0001 


IK) 


0006 


0000 


PRESET 


0383 


00 


0006 


0000 


414 


A0002 


00 


0000 


0001 


ABSOLUTE 


0384 


00 


0000 


0001 


415 


A 000 5 


00 


0000 


1000 


' CONSTANTS 


0387 


00 


0000 


1000 


416 


A0006 


00 


0000 


2000 




0388 


00 


0000 


2000 


417 


A0007 


©0 


0000 


3000 




0309 


00 


0000 


3000 


418 


0150 


00 


6163 


AI 


.ABSOLUTE 


0150 


00 


6163' 


• 1018 


419 


0151 


m 


6169 


AI 


VALUE 


0151 


00 


6169 


1018 


420 


0152 


. 00 


■ 6173 


AL 


.< 


0152 . 


00 


6173 


0628 



%&y 



m.. 



\> 



.<&■ 



.;?*? 



421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

430 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 



0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

021& 

0212 

0213 

0214 



00 
00 
00 
00 

00 

00 

00 

00 

00 

00 . 

00 

00 

00 

00 

00 

00 

00 

00 
.00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 • 

00 

0© 

00 

00 

00 

00 

00 • 

00 ' 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 



6178 
6188 
6282 
6299 
6369 
6373 
6375 
6399 
6463 
6466 
6469 
6471 
6473 
6478 
6488 
6499 
6572 
6663 
6666 
6669 
6671 
6673 
6678 
.6682 
6688 
6699 
6769 
6773 
6799 
6866 
6966 
"6969 
6973 
6999 
7164 
7166 
7172 
7177 
7178 
7179 
7182 
7187 
7199 
7263 
7266 
7269 
7271 
7273 
7278 
7282 
7288 
7299 
7363 
7369 
7371 
7373 
7378 
7382 
7308 
7399 



AL 
AI 
BS 
BN 

cr 

: t!EEL' 

CMTX 

CN 

WY 

DF 

WY 

ZN " 

WL 

WE 

WY 

ZN ' 

PS3 

WY 

FF * 

WY 

ZN 

WL '' 

WE 

PS3 

WY 

ZN " 

GI 
■GL "' " 

GN 

PS3 

IF 

II 

It 

IN ' 
*PW 

PF 

PCMMA 

PW 

PF 

PP 

PW 

PW 

PN 

WY 

QF 

WY 

ZN 

WL 

WE 

PS3 

WY 

ZN 

WY 

WY 

ZN 

WL 

WE 

PS3 

WY 

ZN 



.. .B MINUS 
DIVIDE 



'GO' 



HALT' 
IF ' 
I 



DECIMAL 
POINT 



COMMA 

COMMA MINUS 



LEFT MINUS 



0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
'"' 0170 
0171 
0172 
0173 
' 0174 
0175 
0176 
0177 
0178 
0179 
' 0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
, 0197 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 



00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
-00 
00 
00 

" 00 
00 
00 
00 
00 
00 

' 00 
00 

" 00 
00 

: oo 

00 
00 
00 
"00' 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
CO 
-00 
00 
00 
00 
00 
00 
00 



6178 
6188 
6282 
6299 
6369 
6373 
6375 
6399 
6463 
6466 
6469' 
6471 
6473 
6478 
6488 
6499 
6572 
6663" 
6666 
6669 
. 6671 
6673 
6678 
6682 
6688 
6699 
6769 
6773' 
6799 
. 6066 
6966 
6969 
6973 
6999 
7164 
7166 
7172 
■ 7177 
7178 
7179 
7182 
7187 
7199 
7263 
7266 
7269 
7271 
7273 
7278 
7202 
7288 
7299 
7363 
7369 
7371 
7373 
7378 
7382 
.7308 
7399 



0628 
1018 
0987 
0654 
0974 
0678 
0880 
0704 
1068 
1271 
1068 
0826 
0728 
1233 
1068 
0826- 
0343 
1068 
1321 
1068 
0826 
0728 
1233 
0343 * 
1068 
0826 
1024 
0778 " 
0754 ' 
0343 ' 
1371 
1074 
' 0828 
0804 
1369 
1421 
1077 
1369 
1421 
1421 
1369 
1369 
0854 
1068 
1471 
1068 
0826 
0728 
1233 
0343 
1068 
0826 
1068 
1068 
0826 
0728 
1233 
0343 
1068 
0026 



a.H 



481 
482 
483 
'484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
! 495 
■ 496' 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
<U1 
312 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 



0215 
0216 

0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
"0236-' 
0237 
0238 
0239 
0240 
0241 
" 0242 
0243 
0244 
0245 
0246 
0247 
0250 
0251 
0252 
0253 
0254 
0255 
0256 . 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272" 
0273 
0274 ■ 
0275 
0276 



00 
00 
00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00" 

00 

00 

00 

*00 
00 
' '00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 



7463 
7469 
7471 
7473 
7478 
7488 
7499 
7573 
7763 
7769' 
7771 
7773 
7770 
7782 
7788 
" 7799 
7864 
7866 
7872 
7877 
7878 
7879 
7882 
7887 
7899 
7964 
7966 
7969 
7972 
7977 
797S 
7979 
7982 
7983 
7987 
7989 
8263 
8269 
8271 
8273 
8278 
8288 
8299 
8363 
8369 
8373 
8388 
8463 
84 69 
8471 
8473 
8478 
8488 
t!499 
ft563 
8569 
.1571 
3573 
8578 
!!588 



M V 

I £ 

"■'N iT' r 

u 

s 




P MINUS' '• ' 

MATRIX 
POWER 



EXTENSIONS" 



RR 

RR 

RW 

RR 

RW 

RZ 

WY 

WY 

IH 

WL 

VIE 

WY 

ZN 

TC 

TI 

TL 

TY 

MY 

MY 

MN 

ML 

ME 

MY 

MN 

MY 

MY 

MM 

ML 

ME 

MY 



RIGHT. PAUEH 



SUM' 



TYPE 



0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230" 
0231 
0232 
0233 
0234 
0235 
" 0236"' 
0237 

0238 

0239 

0240 

0241 
"0242 ' 

0243 

0244 

0245 

0246 " 

0247 
' 0250'" 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 '" 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 



00 
•00 

00 
00 
00 
00 
' 00. 
00 
00 
00 
00 
00 
00 
00 
00 
" 00" 
■00 
00 
00 
00 
00 
"00 " 
00' 
' 00 
00 
" 00 
00 
"00 
00 
00 
00 

' oo- 

00 
"00 
00 
00 
00 
00 
00. 
'00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

oo- 

00 
00 
00 
00 
00 
00 
00 
00 



7463 
'7469 

7471 
7473 

'7478 
7488 
7499 
7573 

•17763 
7769: 

■7771- 
7773' 
7778 
7782 
7788 
7799' 
7864 
7866- 
7872 
7877. 
7878 
7879 
7882 

7887 ■ 

7899 

7964 

■ 7966 

7969 ' 
' 7972 

7977 
. 7978 

7979 

7982 

7983.". 

7987 

7989 

8263 

8269 ' 

8271 

8273 

8278 

8288 

8299 

8363 

8369' 

0373 

8388 

8463 

8469 

8471 

8473 

8478 

8488 

8499 

8563 

8569 

8571 

8573 

8578 

8588 



1118"'' 

1118 
0876 
0878 " 

• 878 ' 
1118 
0876 
0343 '■" 

.' 1068 .. 
1068 ..-" 

* 0826- 
0728 
1233 
0343 ■■* 
1068 __ 
0826 
1419 
1521'"*" 
1127 

.1419 

1521 

1521"""" 
' 1419 

1419 " 

0904 

1469 ' 

1571 

1571 "" 

1177 • 

1469 

1571 

1571 *"v 

1469. ~ 

1571"""" 

1469 

0744 
■1068 

1068 
0,026 • 
0728 

1233 

1068 ' 

0826. 

1168 

1124 

0928 

0843 

1218 

1218 

0926 

.0978 

1283 

1218 

0926 

1218 

1218 

0926 

0978 

1283 

1218 



3. of 



541 
542 
543 

344 
545 
546 

547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
570 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
}99 
600 



0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 

" 0290 
0291 

"0292 
0293 

" 0294 
0295 
0296 
0297 

" 0300 
0301 

"• 0302' 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 

' 0324 
0325 
0326. 
0327 
0328 
0329 

AI 



All 
AL 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
'00 
00 
'" 00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
RAL 
STL 
LDD 
LDD 
STL 
LDD 
STU 
RAL 
ALO 



8599 
8663 

8669 
8671 
8673 
8678 
8688 
8699 
8763 
8769 
8771 
8773 
8778 
8788 
8799 
8869 
8873 
8875 
8899 
8963 

' 8969 
8971 
8973 
8970 
8982 
8980 
8999 
9063 
9064 
9067 
9068 
9069 
9073 
9078 
9083 
9088 
9962 
9964 
9965 
9966 
9969 
9971 
9972 
9977 
9978 
9979 
9982 
9983 
9987 
9989 
9999 

©TWO 

TEMP 4 

All 

ABVAL 
LOW ' 



MN 

MY 

MY 

MN 

ML 

ME 

MY 

MN ■ 

WY 

WY 

ZN 

WL 

WE 

WY 

ZN 

YI 

YL 

YMTX"" 

YN 

WY ' 

WY 

ZN " 

WL 

WE " 

PS3 

WY 

ZN 

ENOY " 

PS12 

ENDG ' 

ENDH 

ENDY' 

ENDL 

PS12 

.END! 

ENDY 

NF 

NW 

NR 

NF 

NR 

NF 

NCMMA 

NW 

NR 

NR ■-' 

NW 

NR 

NW 

NZ 

NF 



.UCHGE 
SETEL 
PS3 
5T8TA 



RELATIONS 



'TIMES 



SUBSTITUTION 



FIRST 
CHARACTERS 



'RAL RSL ' '" 
BECOME ' 

RA8 RSB 
L IS R 

ABVAL N0N2R0 
BETA IS U 
VI IS ZERO 
COMPILE 

RAB 8002 



0277 
0278 
0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0300' 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0322 

0313 

0314 

0315 

0316' 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

1018. 

1073, 

0841 

0844 

0847 

0628 

1081 

0891 

0349 



00 ■ 
00 

00 
00 

00 
00 

00' 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 k 
00 
00 
■00 
00 
00 
00 
00- 
00 
00 
00 
00 
00 
00 
00 
00 
00 
.00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
65 
20 
69 
69 
20 
69 • 
21 
65 
15 



8599 

8663 

8669 

8671 

8673 

8678 

8688 

8699. 

8763 

8769 

8771 

8773 

8778 

8788 

8Y99 

8869 

8873 

8875 

8899 

8963 

8969 

8971' 

8973 

8978 

8982 

8988 

8999 

9063 

9064 

9067 

9068 

9069 

9073 

9078 

9083 

9088 

9962 

9964 

9965 

9966 

9969 

9971 

9972 

9977 

9978 

9979 

9982 

9983 

9987 

9989 

9999 

0768 

0788 

0844 

0847 

0366 

1081 

0488 

0894 

0352 



0926 

1218 .' 
1218, 
■0926"' 
0978.. 
1283 
1218 
0926 
1068 
1068" 
0826 
0728 
1233. __ 
1068. 
0826 
1174 " 
1028 
0930 
0954 
1068'*" 
1068 _ 
0826' 
0728 
1233 "" 
0343 
1068 
0826 __ 
1268 
0850 s 
0772 
1023 
1-268 '* 
1078. 
0850 "" 
0938 
1268 
0917' 
1519 
0720 
0917 
0720 
0917 
1227 
1519 
0720 
0720 " 
1519 
0720 
1519 
0794 
0917 
1073 
0841 
0797 
1250 
0343 
0884 
0891 
0349 
1057 



A. • a 



601 
602 
603 
604 

605 
606 
607 
608 
609 
610 
611 
612 
613 
' 614 
613 
616 
61? 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
6 38 
639 
640 
641 
642 
643 
644 
64 5 

646 " 

647 ■ 
648 
649 
650 
651 
652 
653 
654 
655 
656 
63? 
658 
659 
660 



BS 



8M 
BN1 



■ceei" 

a " 

en 

ADLOW 



'CMYK 
CM 
CN1 ' 

VAR 



VAR2 

VAR! 

DF 

BE 
EEC2' 

EN 



EN1 



LDD 

STU 

LDO 

RAL 

SLO 

STL 

RAU 

LDD 

STU 

LOO 

RAL 

STU 

STL 

RAL 

LOO 

RAL 

AUP 

STU 

STL 

1DD 

RAL 

LOO 

STU 

RAU 

AUP 

LDD 

RAL' 

RAU 

RAL 

AUP 
STU 

STL 

LDD 

LDD 

LDD 

LDO 

SLT 

ALO 

ALO . 

LDD 

RAL 

STL 

RAL 

LDD 

LDD 

STU 

LDD 

LDD 

LDD 

ALO 

ALO 

LDD 

STU 

RAL 

ALO 

AUP 

SLO 

LDD 

SDA 

RAL 



OPSGN 

AOOOl 

ONE 
AOOOl 

N 

BN1 
NBAR 

ONET 
N 

ARITH 
THREE 

CI 

c 

ONET 

TEMPI 

TEMP2 

SLTI3 

OPSGM 
L0W1 

ALO 

8003 
TWO 
C 

ONET 
TEMPI 
TEMP2 



0004 
RAL 
TEMP2 
VAR1 
TEMPI 
ARITH 
5XTNT 
PS5A 
RR 
OPSGM 



DOOOI 

EXT 

OPSGN 

HI) 

EN1 

8002 
ONE 
EN 4 
EN4 
JOOC'X 



0S6NX 
All 

DROPU 



8N1 
SRN 

CHKAR 



NF2 
SETEL 

cu 

ADLOW 



CHKAR 
0SGN1' 



OPSGM 2ER0 
DCRMNT U 

ABCON COUNT' 
MINUS ONE 



NBAR EQUALS ■ 
N 

ARITH EQUALS' 
ONE 



STORE V AND * 
ARITH 

COMPILE 

SLT 0004 AND' 

ALO 8002 ' 



PS? " 
VAR 2 
YMTX1 
CN1 
VAR" 



CHfCAR 
STBTA 

SRN 

CHKNN 

VAR2 



"0SGN1 
EEC2 

LDSR' 

NUINC 

PS3 " 

CHfCAR 

SRN 

CHfCNN. 



0SGN1 



8003 



COMPILE 

RALVOOOO 

V IS TWO " 

V EQUALS C 
ARITH IS ONE 
STORE V AND 
ARITH 



GENERATE N 

COMPILE 
RAL VN 

net*. '"..:■.- 

SET ARITH 
BEGIN READ 



GENERATE N 

COMPILE 
LDDOOOOEN 



IF JNU. NOT 
EQUAL JNU 
PLUS ONE 

COMPILE 
NOPPHIJNU 



105? 
0760 
0987 
"" 064'0 
1037 
1485 
0736 
0654 
1039 
0745 ' 
0198 
1511 
1087 
0678 
1535 
0974 * 
1181 
1611 " 
1112 
0943 
0346 ■ 
"" 1253" 
0656 
1327" 
1583 
0993 
0496 
" 0880" 
0704 
1231 "" 
1661 
1162 ■ 
1043 
0546"" 

0549 

0652 • 

1105 

1303 

1123 

0795 " 

0248 

1363 

1271 

1229 

1521 

1711"'" 

0904 

1107 

0810 

1413 

1137 

0845 "~ 

0298 

1377 

1155 

1463 . 

1621 

1635 " 

0941 

0708 



69 

21 
69 
" : 65 
16 
20 
60 
69 
21 
69 
65 
21 
20 
•■ 65 
69 
-65 
10 
21 
20 
69 
65 
69" 
21 
" 60" 
10 
69 ' 
65 
60 " 
65- 
10 
21 
20 
69 
""69 " 

69 
, 69 
35 
15 
15 
69 " 
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20 


1824 
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AI7 


AI8 


OVERFLOW 


1877 


44 


1831 
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AI8 
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67 
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1841 




48 
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1841 


18 


1794 


1800 





49 




ALO 
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1800 


15 


1903 


1822 


50 




SLT 
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1822 


35 


0008 


1791 


51 
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1791 


65 


8002 


1849 


52 




AAB 


ARTHE 






1849 


17 


1902 


1757 


53 




ALO 


ARTHF 






1757 


15 


1772 


1827 


54 




BMI 
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PWR TOO SMAL 


1827 


46 


1752 


1781 


55 




NZU 
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1781 


44 


1785 


1836 


56 




SLT 
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1836 


35 
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1893 


57 
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STU 
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1893 


21 


1998 
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59 
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STL 
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1786 


62 


AI9 
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63 


AI7 
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STL 


ARTHM 
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AI8 




1927 


35 


0001 


1834 
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AI6 
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1904 


67 
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ARTHX 
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24 


1786 
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LDD 




ARTHB 
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1805 
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1825 
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60 
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1824 
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75 
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LDD 




ARTHS 


IS DIVISOR 


1809 


69 


1842 


1805 


76 




NZU 




AG3 


ZERO 


1842 


44 


1812 


184 6 


77 




RSB 


8002 




DIVISOR 


1812 . 


68 


8002 


1821 


78 




ALO 


AG 2 




POWER MINUS 


1821 


15 


1876 


1895 


79 




STL 


ARTHF 




49 


■ 1895 


20 


1772 


1768 


80 




RAU 


ARTHM 




SHIFT 


1768 


60 


1824 


1879 


81 




SRT 


0001 




DIVIDEND 


1879 


30 


0001 


1885 


82 




DVR 


ARTHH 




DO DIVIDE 


1885 


64 


1788 


1803 


83 




RAU 


8002 


ARTHS 




1803 


60 


8002 


1762 


84 


EOOAO 


STD 


ARTHX 




DIV REVERSE 


1882 


24 


1786 


1989 


85 . 




' 'STL 


ACC2 






1989 


20 


1843 


1896 


86 




RAL 


ACC 






1896 


65 


0000 


1810 


87 




LOO 


ACC2 






1810 


69 


1843 


1897 


88 




STD 


ACC 


AG1 




1897 


24 


0000- 


1889 


89 


EOOAF 


STD 


ACC 6 




FLOAT TO LWR 


1947 


24 


1858 


1911 


90 




LDD 


AE4 


E00A6 


AND ACC 


1911 


69 


1925 


1928 


91 


AE4 


STL 


ACC 


ACC6 




1925 


20 


0000 


1858 


92 ' ■ 


-EOOAE 


' STD' 


ARTHX 




FLOAT TO LWR 


1928 


24 


1786 


1840 


93 ' 


- 


RAU 


8002 




ONLY 


1840 


60 


8002 


1753 


94 




SCT 


0000 




NORMALIZE 


1753 


36 


0000 


1975 


95 




STL 


ACC3 






1975 


20 


1881 


1784 


96 




BOV 


AD1 • 




ZERO CHECK 


1784 


47 


1851 


1890 


97 




RAL 


8003 






1890 


65 


8003 


1798 


98 




SRD 


0002 




ROUND FOR 


1798 


31 


0002 


1807 


99 




SLT 


0002 




PLACING EXP 


1807" 


35 


0002 


1764 


100 




NZU 




AE6 


CHECK ROUND 


1764 


44 


1818 


1891- 


101 




LDD 


8003 




OVERFLOW 


1818 


69 


8003 


1874 


102 




SRT 


0001 






1874 


30 


0001 


. 1884 


103 ' 




. ALO 


8001 


AE6 


■ - 


1884 


15 


8001 


1891 


104 


AE6 


BMI 


AE2 




INSERT 


1891 


46 


1844 


1845 


105 




ALO 


AJ3 


AE5 


EXPONENT 


1845 


15 


1848 


1804 


106 


AE2 


■ SLO 


AJ3 . 


AE5 




1844 


16 


1848 


1804 


107 


AE5 


SLO 


ACC3 


ARTHX 




1804 


16 


1881 


1786 


108 


EOOTB 


STD 


ARTHX 




FIX LOWER 


1932 


24 


1786 


1990 



109 




SIT 


0008 




TO' LOWER 


1990 


35 


0008 


X859 


110 




STU 


ARTHM 






1859 


21 


1824 


1878 


111 




RAB 


8002 




TEST EXP 


1878 


' 67 


8002 


1887 


112 




SIO 


AJ5 




STORE ZERO 


1887 


16 


1940 


1945 


113 




BMI 


AD1 




IF LESS THAN 


1945 


46 


1851 


1850 


114 




SLO 


AJ4 




50 ALARM 


1850 


16 


.1853 


1758 


115 




BMI 




AD3 


IF GRTR THAN 


1758 


46 


1861 


1862 


116 




SRT 


0004 




59 


1861 


30 


0004 


1921 


117 




ALO 


AR7 






1921 


15 


1924 


1929 


118 




LOD 


AD2A 




MODIFY 


1929 


-69 


1835 


1838 


119 




SDA 


AD2 




SHIFT 


1838 


22 


1991 


1971 


120 




RAL 


ARTHM 






1971 


65 


1824 


1930 


121 




SLT 


0002 


AD2 




1930 


. 35 


0002 


1991 


122 


-' AD1 


RAL 


8003 


ARTHX 


STORE ZERO 


1851 


65 


8003 


1786 


123 


AD2 


SRT 


0000 


ARTHX 


SHIFT CONST 


1991 


30 


0000 


1786 


124 


'" AD2A ' 


SRT 


0000 


ARTHX 




1835 


. 30 


0000 


1786 


125 . 


'. A03 


LDD 


ARTHX 


3031 


FIX ALARM 


1862 


69 


1786 


3031 


126 


AG3 


LDD 


ARTHX 


■ 3061 


DIVIDE ALARM 


1846 


69 


1786 


3061 


127 


AI11 


LDO 


ARTHX 


3081 


SCALE ALARM 


1785 


69 


1786 


3081 


128 


AI11A 


HLT 


1081 


AI6 




1752 


01 


1081 


1942 


129 


AG 2 


. 49 


0000 


0000 




1876 


49 


0000 


0000 


130 


■ AJ1 


48 


0000 


0000 




1820 


48 


0000 


0000 


131 


• AJ2' ' 


00 


" 0000 


0001 




1903 


00 


0000 


0001 


132 


AJ3 


00 


0000 


0059 




1848 


00 


0000 


0059 


133 


AJ4 


10 


0000 


0000 




1853 ' 


10 


0000 


0000 


134 


AJS 


50 


0000 


0000 




1940 


50 


0000 


0000 


135 


E00AQ 


• ' STO 


J0001 


AQ1 


READ 


1974 


24 


1977 


1830 


136 


AQ1 


ROS 


1976 


AG3 




1880 


70 


1976 


1898 


137 


AQ3 


RAB 


P0001 


AQ3A 




1898 


67 


1951 


1806 


138 


AQ3B 


RAB 


'P0001 


AQ3A 


CHECK FOR 


1892 


67 


1951 


1806 


139 


AQ3A 


NZA 




AQ8 


LAST WORD 


1806 


45 . 


1860 


1837 


140 




LDD 


AQ5 


AQ4 


ON CARD 


1860 


; 69 


1863 


1816 


141 


' AQ4 


STD 


ACC4 






1816 


24 


1870 


1873 


142 




AUP 


8003 




READ IN 


1873 


10 


8003 


1931 


143 ' 




SRT 


0004 




LABEL FOR 


1931 


30 


0004 


1941 


144 




■SIA 


ACC5 




PRESENT 


1941 


23 


1795 


1948 


145 




SLO 


8001 




VARIABLE 


1948 


16 


8001 


1856 


146 




' ALO 




8002 


GET I Y OR C . 


1856 


15 


1809 


8002 


147 




RAU 


AOOOO 




ADDRESS FROM 


1809 


00 


0000 


0000 


148 




AUP 
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149 




SLT 
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GENERATE 
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1870 


150 
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1863 


10 


1866 
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1915 
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1951 
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46 


1977 


1880 
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STD 
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24 


1955 


1908 
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23 
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COUNT 
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8001 


1917 
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AR10 


AR9 
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1917 
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1920 


1872 


168 


AR10 


STU 
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169 




STD 
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24 


1982 


1972 
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1972 


24 


1983 


1864 
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STD 
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186A 


24 


1984 


1888 
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STD 
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SET COUNTER 


1888 


24 


1960 


1913 
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AR3 
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1913 


65 


1954 


1910 
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1910 


16 


1924 


1936 
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TEST WORD 
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46 


1994 


1992 
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20 
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15 
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1868 


65 


1950 
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30 
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1926 
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15 
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1923 
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1969 


8003 
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STL 
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1988 
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1988 
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1900 


191 




LDD 




AGA 


MODIFY LABEL 
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69 


1906 
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AUP 


AR6 
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10 
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1934 
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LOC IN READ 
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8003 


GET WORD 
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15 
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8003 




STD 
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24 
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1993 


65 


1960 


1815 




ALO 


AQ9 






1813 


15 
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STL 
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AR3 
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20 
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LDD 
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00 
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AR8 
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SDA 
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STU 


Adc •'■ • 
AC?C1 


ARTHX 


AND 


1904 


20 


0000 


1786 




62 


AI9 


AlO 


AI10 




1995 


15 


1998 


1904- 




63 


AI7 


• SRT 


0,001 

ARTHM 




ADJUST 


1831 


30 


0001 


1792 




64 




STU 






1792 


20 


1824 


1927 




65 




SLT 


0001 


A18 


| 


1927 


35 


0001 


1834 




66 


AI6 


RAL 


8003 


AI10 


! 


1942 


65 


8003 


1904 




67 


EOOAJ 


STD 
' LDD 


ARTHX 


ARTHB 


MULTIPLY _ 


1832 
1839 


24 

~~ 69 


1786 
'1852 ' 


1839 

1805 




68 




69 




RAB 


8002 




ACC POWER 


1852 


67 


8002 


1867 




70 




SLO 


AJ1 




MINUS 48 


1867 


16 


1820 


1825' 




71 




STL 


ARTHF 






■1825 


20 


1772 


1875 




72 




RAU 


ARTHH 






1875 


60 


1788 


1756 




73 


" EOOAG " 


MPY 

STD 


ARTHM 
ARTHX 


ARTHS 
A61 


DIVIDE 


1756 
1830 


. 19 
24 


1824 
1786 


1762 
1889 




74 




75 


AG1 


LOO 




ARTHB 


IS DIVISOR 


1889 


69 


1842 


1805 




76 




NZU 




AGS 


ZERO 


1842 


44 


1012 


1846 




■77 




RS8 


8002 




DIVISOR 


1812 


68 


8002 


1821 




78 




ALO 


A62 




POWER MINUS ■ 


1821 


15 


18 76 


1895 




79 


■ 


STL 
" RAU 


ARTHF 
ARTHM 


. . . ...... 


49 
SHIFT 


1895 
' 1768 ' 


20 
■ 60 


.1772 
1824 


1768 
1879 




80 '" 




81 




SRT 


0001 




DIVIDEND 


1879 


30 


0001 


1805 




82 " 




DVR 


ARTHH 




' DO DIVIDE" 


1885 


64 


1788 


1803 




83 




RAU 


8002 


ARTHS 




1803- 


60 


8002 


1762 




84 


E0OAO' " 


STD 


ARTHX 




D1V REVERSE 


1882 


24 


1786 


1989 




85 




STL 
RAL 


ACC2 
ACC 






1989 
1896 


■ 20 
65 


1843 
0000 


1896 
1810 




86 




87 




LDD 


ACC2 






1810 


69 


1843 


1897 




88 




STD 


ACC 


AG1 




1897 


24 


0000 


1089 




89 


EOOAF 


STD 


ACC6' 




FLOAT TO LWR 


1947 


24 


1858 


1911 




90 




LDD 


AE4 


EOOAE 


AND ACC 


1911 


69 


1925 


1928 




91 


AE4 


STL 


ACC 


ACC6 




1925 


20 


0000 


1858 




92. " 


EOOA£ 


STD 


ARTHX 




FLOAT TO LWR 


1928 


24 


1786 


1840 




93 


, 


RAU 


8002 




ONLY 


1840 


60 


8002 


1753 




94 




SCT 


0000 




NORMALIZE 


1753 


36 


0000 


1975 




95 




STL 


ACC3 






1975 


20 


1881 


1784 




96 




80V 


AD1 




ZERO CHECK 


1784 


47 


1851 


1890 




97 




RAL 


8003 






• 1890 


65 


8003 


1798 




98 




SRD 


0002 




ROUND FOR 


1798 


31 


0002 


1807 




99 




SLT 


0002 




PLACING EXP 


1807 


35 


0002 


1764 




100 




NZU 




AE6 


CHECK ROUND 


1764 


44 


1818 


1891 




101 




LDD 


8003 




OVERFLOW 


1818 


69 


8003 


1874 




102 




SRT 


0001 






1374 


30 


0001 


1884 




103 




ALO 


8001 


AE6 




1884 


15 


8001 


1891 




104 


AE6 "" 


BMI 


■ AE2 




INSERT 


' 1891 


46 


1844 


1845 




105 




ALO 


AJ3 


AE5 


EXPONENT 


1845 


15 


1848 


1804 




106 


AE2 


SLO 


AJ3 


AE5 




1844 


16 


1848 


1804 




107 


AE5 


SLO 


ACC3 


ARTHX ' 




1804 


16 


1881 


1786' 




108 


EOOTH 


STD 


ARTHX 




FIX LOWER 


1932 


24 


1786 


1990 




109 




SLT 


0008 




TO LOWER 


1990 


35 


0008 


1859 




110 




STU 


ARTHM 






1859 


21 


1824 


1878 




111 




RAB 


8002 




TEST EXP 


1878 


67 


8002 


1087 




112 ■ 




SLO 


AJ5 




STORE ZERO 


1887 


16 


1940 


1945 





z-lf 



113 




BMI 


AD1 




IF LESS THAN 


1945 


46 


1851 


1850 


114 




SLO 


AJ4 




50 ALARM 


1850 


16 


1853 


1758 


113 




BMI 




AD3 


IF GRTR THAN 


1758 


46 


1861 


1862 


116 




SRT 


0004 




59 


1861 


30 


0004 


1921 


117 




ALO 


AR7 






1921 


15 


1924 


1929 


118 




LDO 


AD2A 




MOD r FY 


1929 


69 


1835 


1838 


119 




SDA 


AD2 




SHIFT 


1838 


22 


1991 


1971 


120 




RAL 


ARTHM 






1971 


65 


1824 


1930 


121 




SLT 


0002 


ADZ 




1930 


35 


0002 


1991 


122 


AD1 


RAL 


8003 


ARTHX 


STORE ZERO' 


1851 


65 


8003 


1786 


123 


A02 


SRT 


0000 


ARTHX 


SHIFT CONST 


1991 


30 


0000 


1786 


124 


AD2A 


SRT 


0000 


ARTHX 




' 1835 


30 


0000 


1786 


125 


AD3 


LDD 


ARTHX 


3031 


FIX ALARM 


1862 


69 


1786 


3031 


126 


AG3 


LDO 


ARTHX 


3061 


DIVIDE ALARM 


1846 


69 


1786 


3061 


127 


AIll 


LDO 


ARTHX 


3081 


SCALE ALARM 


1785 


69 


1786 


3081 


128 


'AI11A 


HLT 


1081 


AI6 




1752 


01 


1081 


1942 


129 


AG2 


49 


0000 


0000 




1876 


49 


0000 


0000 


130 


AJ1 


48 


0000 


0000 




1820 


48 


0000 


0000 


131 


AJ2 


00 


0000 


0001 




1903 


00 


0000 


0001 


132 • 


AJ3 


00 


0000 


0059 




1848 


00 


0000 


0059 


133 


AJ4 


10 


0000 


0000 




1853 


10 


0000 


0000 


134 


AJ5 " " 


50 


0000 


0000 




1940 


50 


0000 


0000 


135 


E00AQ 


STD 


J0001 


AQ1 


READ 


1974 


24 


1977 


1880 


136 


AQ1 


RDS 


1976 


AQ3 




1880 


70 


1976 


1898 


137 


AQ3 


RAB 


P0001 


AQ3A 




1898 


67 


19 51 


1806 


138 


AQ3B 


RAB 


P0001 


AQ3A 


CHECK FOR 


1892 


67 


1951 


1806 


139 


AQ3A 


NZA 




AQ8 


LAST WORD 


1806 


45 


1860 


1837 


140 




LDD 


AG5 


AQ4 


ON CARD 


1860 


69 


1863 


1816 


141 


AQ4 


STD 


ACC4 






1816 - 


24 


1870 


1873 


142 




AUP 


8003 




READ IN 


1873 


10 


8003 


1931 


143 




SRT 


0004 




LABEL FOR 


1931 


30 


0004 


1941 


144 




SIA 


ACC5 




PRESENT 


1941 


23 


1795 


1948 


145 




SLO 


8001 




VARIABLE 


1948 


16 


8001 


1856 


146 




ALO 




8002 


GET I Y OR C 


1856 


15 


1809 


8002 


147 




RAU 


AOOOO 




ADDRESS FROM 


1809 


00 


0000 


0000 


14 8 




AUP 


ACC5 




ABCON D1CT 


1987 


10 


1795 


1949 


149 




SLT 


0004 


ACC4 


GENERATE 


1949 


35 


0004 


1870 


150 


AQ3 


AUP 


AQ7 




INSTRUCTION 


1863 


10 


1866 


185 7 


151 




ALO 


P0010 






1857 


15 


1960 


1965 


152 




ALO 




8002 


GET AND 


1965 


15 


1968 


8002 


153 




LDD 


P0002 


8003 


STORE WORD 


1968 


69 


1952 


8003 


154 


AQT 


STD 


0000 






1866 


24 


0000 


1907 


155 




RAL 


P0010 




INCREMENT 


1907 


65 


1960 


1915 


156 




ALO 


AQ9 




WORD COUNT 


1915 


15 


1918 


18 54 


157 




STL 


P0010 






18 54 


20 


1960 


1963 


158 




ALO 


AQ3B 


8002 




1963 


15 


1892 


8002 


159 


AQ8 


' RAL 


P0001 




CHECK FOR 


1837 


65 


1951 


1765 


160 




BMI 


J0C01 


AQ1 


LAST CARD 


1765 


46 


1977 


1880 


161 


EOOAR 


STD 


P0005 




PUNCH OUT 


1801 


24 


1955 


1908 


162 




STU 


J0003 






1908 


21 


1979 


1935 


163 




SIA 


P0008 




STORE STMNT 


1935 


23 


1958 


1912 


164 




STU 


J0004 




NUMBER 


1912 


21 


1980 


1886 


165 




SDA 


P0004 




STORE WORD 


1886 


22 


1954 


1909 


166 




SLO 


8001 




COUNT 


1909 


16 


8001 


1917 


167 




NZA 


AR10 


AR9 


TEST ZERO 


1917 


45 


192,0 


1872 


168 


AR10 


STU 


J0005 




STMT NUMBER 


1920 


21 


1981 


1814 


169 




STD 


J0006 




SET PUNCH 


1814 


24 


1982 


1972 


170 




STD 


J0007 




BAND TO 


1972 


24 


1983 


1864 


171 




STD 


J0008 




ZEROES 


1864 


24 


1984 


1888 


172 




STD 


P0010 


AR3 


SET COUNTER 


1888 


24 


1960 


1913 



2, 156 



173 


AR3 


• RAL 


174 




SLO 


175 




BMI 


176 




STL ' 


177 


' AR4 


ALO 


178 




RAL 


179 




AUP 


100 




SLT 


181 




SDA 


182 




SLQ : - 


183 




SRT 


184 




ALO 


185 




SLT 


186 . 




ALO 


187 




AUP 


188 




AUP 


189 




STL 


190 




RAL 


191 




LDD 


192 




AUP' 


193 




ALO 


194 




ALO 


195 




SID 


196 




RAL 


197 




ALO 


198 




STL 


199 


AR6 


LDO 


200 


AR7 


00 


201 ' 


AR8 


PCH 


202 


AR9 


RAL 


203 




BMI 


204 


AQ9 


00 


205 


J001© 


■80 


206* 


'EOOAL 


SID 


207 




STL 


208 




RAL 


209 


■ AL17A 


STD 


210 




STO 


211 




SLO 


212 




NZA 


213 ' 




RAL 


214 




STD 


215 




LDD 


216 


AL18 


RAL 


21?' 


AU! 


. SLT, 


218 




SLO 


219 




SLT 


220 




ALO 


221 




STtJ 


222 




RA8 


223 




SLO 


224 




SLT 


225 




STU 


226 




RAL 


227 




STL 


228 




RAL 


229 




SLT 


230 




STU 


231 


AL3 


RAU 


232 




MPY 



P0004 






1913 


65 


1934 


1910 


AR7 






1910 


16 


1924 


1936 


AR8 




TEST WORD 


1936 


46 


1994 


1992 


P0004 ' 


AR4 


COUNT ' 


1992 


20" 


1954 


1865 




8002 


GET WORD 


1865 


15 


1868 


8002 


POOOO 




LABEL FROM 


1868 


65 . 


1950 


1914 


'8003 




PUNCH CONSTS 


1914 . 


10 


8003 


1922 


0001 






1922 


35 


0001 


1938 


P0007 




MODIFY LABEL . 


1938 


22 


1957 


1961 


-8001 






1961 


16 


8001 


1919 


0001 






1919 


30 


0001 


1926 


P0007 






' 1926 


15 


1957 


1962 


0004 




INSERT STMNT 


1962 


35 


0004 


1923 


P0008 




NUMBER 


1923 


15 


1958 


1964 


P0010 






1964 


10 


1960 


1916 




8003 




1916 


10 


1969 


8003 


J0001 




STORE LABEL 


. 1969 


'20* 


1977 


1988 


8002 




FOR PUNCHING 


1988 


65 


8002 


1900 




AQ4 


MODIFY LABEL 


1900 


69 


1906 


1316 


AR6 




'INTO DRUM 


1906 


10 


1966 


1934 


P0010 




LOC IN READ 


1934 


15 


1960 


1967 




8003'" 


GET WORD 


1967 


15 


1970 


8003 


J0002 




STORE IN 


1970 


24 


1978 


1993 


P0010 




PUNCH BAND 


1993 ■ 


65 


1960 


1815 


AQ9 






1815 


15 


1918 


1973 


P0010 


AR3 




1973 


20 


I960 


1913 


■ 0000 


8002 




1966 


69 


0000 


8 002 . __. 


0001 


oooo ■' 




1924 


00 


0001 


0000 


J0001 


P0005 


PUNCH 


1994 


71 


1977 


1935 


8000 




IF STMT NMBR 


1872 


65 


8000 


193? 


AR10 


P0003 


2R0 PCH ONLY. . 


1937 


46 


1920 


1955 ... . 


0002 


0000 


IF 8000 NE6 


1918 


00 


0002 


0000 


0000 


8800 .. 


CONTROL CNST. .. 


1986 


80 


0000 


8800 . 


ARTHY 






1654 


24 


1808 


1732 


ARTHH 






1732 . 


20 


1788 


1694 


ACC 


AL17A 


IS POWER 


1694 


65 


0000 


. 17( )9 


ACC4- 




TWO 


1709 


24 


1870 


1723 ■ 


ARTHX 




IF SO 


1723 


24 


1786 


1739 • 


AL16 




MULTIPLY 


1739 


16 


1686 


1692 


AL18 






1692 


45 


1731 


1751 


ARTHH 






1751 


65 


1788 


1645 


ACC 






1645 


24 


• 0000 


1655 


ARTHY 


EOOAJ 




1655 


69 


1808 


1832 


ARTHH 


AUT 




1731 


65 


1788 


1693 


00.08, 
800.2 






1693 
166; 


35, 
16 


■ 0008 
800 2 


1661 

1720 


0002 




Q EQUALS 


1720 ' 


35 


0002 


1677" 


8001 




'■■'MANTISSA 


1677 


15 


8001 


1690 


arth£ 




OF ARGUMENT 


1690 


21 


1772 


1675 


8002 




•.■. , ":i 


1675 


67 


8002 


1603 


AH"' 




STORE EXPNNT 


1683 . 


16 


1736 


1691 


'0002 




■..OF ARGMNT ;i 


1691 


35 


0002 


1698 


ARTHH 




; 1 


1698 


21 


1902 


1706 


AL2'. 




MANTISSA OF 


1706 


65 


1660 


1666 


ARTHM 




• Z IS ONE 


1666 


20 


1824 


1678 


AL1 






1678 


65 


1736 


1695 


0002 




EXP OF Z IS 


1695 


35 


0002 


1702 


ARTHG 


AL3 


50 


1702 


21 


1794 


1747 


ACC 




K IS GRTST 


1747 


60 


0000 


1708 


AL1 




INTEGER IN 


• 1708 


19 


1736 


1738 



I?, 37 



n 



233 




STU 


ACC 




K OVER TWO 


1738 


21 


0000 


1658 




234 




"HAL 


§002 




IS REMAINDER 


1658 


65 


8002 


1667 




235 




NZA 




AL4 


ZERO 


1667 


45 


1670 


1646 




236 




"RAU 


ARTHM 




' IF NOT SET I 


1670 


60 


1824 


1729 




237 




' LDD 




At5 


EQUALS TO 


1729 


69 


1682 


1737 




238 




AtO 


ARTHG. 




Z TIMES Q 


1682 


15 


1794 


1715 




239 




STL 


ARTHG 




VIA 


1715 


20 


1794 


1699 




240 




RAL 


ARTHD 




SUBROUTINE 


1699 


65 


1665 


1669 




241 




STL 


ARTHM 






1669 


20 


1824 


1638 




242 




"NZA 


AL4 


AL20 




1638 


45 


1646 


1741 




243 


At* 


RAU 


ACC 




IF K NONZERO 


1646 


60 


0000 


1712 




244 




NZU 




At? 


EQUALS 


■1712 


44 


1668 


1721 




245 




RAU 


ARTHF 






1668 


60 


1772 


1679 




246 


. 


too 




AL3 


VIA SUBRTNS 


1679 


69 


' 1684 


1737 




247 


,. . — 


ALO 
" STL 


ART HE 

ARTHE 






1684 
'~~ 1714 


15 
'20 * 


1902 
' 1902" 


1714 

1662 




248 








249 




RAL 


ARTHD 






1662 


65 


1665 


1719 




250 


■ ■---■- 


'" STL 


ARTHF 


At3" 




""1719 


" 20 


1772 


1747" 




251 


ALT _ 


RAU 


ARTHG 




SET EXPONNTS 


1721 


60 


1794 


1700 




252 




"'" SRT 


0002 




ARTHS 


1700 


30 ■ 


0002 


1663 




253 


. ..... ; ... . ... 


N2U 

" STL 


AI 11 

ARTHE 




EXP OVERSCAL 


1663 
1722' 


44 
" 20 


1785 . 
1902 


1722 
1664 




254 




2 55 




STU 


ARTHF 






1664 


21 


1772 


1671 


... j_. 


256 




RAU 


ARTHM 






1671 ■ 


60 


1824 


1680 




257 




SRT 


0001 


AL20 




1680 


30 


Q001 


1741 




258 


AL20 " 


LOO 


AL8 






1741 


69 


1716 


1724 




259 


■ " Ate '*" 


STO 
RAL 


ARTHX 
ACC4 


ARTHS 




1724 
1716 


24 
65 


1786 
1870 


1762 
1648 




260 




261 




BMI 


ALIO 






1648 


46 


1701 


1743 




252 




RAL 


ACC' 


ARTHY 




1743 


65 


0000 


1808 




263 


ALIO 


RAL 


ACC 




2 EQUALS ONE 


1701 


65 


0000 


1672 




264 




NZA 




AL12 


OVER Z IF 


1672 


45 


1676 


1681 




265 




RAL 


ALII 




K NEG AND Z 


1676 


65 


1685 


1649 




266 


.... _ . .... 


' LOD 


ARTHY 


EOOA€ 


" NON ZERO 


' 1649 '" 


69 


1808 


1830 




267 


AL12 


LDO 


ARTHY 


3111 


ALARM IF ZRQ 


1681 


69 


1808 


3111 




268 


AL3 


STD 


ARTHX 






1737 


24 


1786 


1652 




269 




MPY 


ARTHF 






1652 


19 


1772 


1673 




270 




SRT 


0009 






. 1673 ■ 


30 


0009 


1644 




271 




NZU 


AL14 






1644 


44 


1650 


1639 




272 




STL 


ARTHD 






■ 1639 . 


20 


1665 


1640 




273 




RAL 


8003 


AtlS 




1640 


65 


8003 


1641 




2 74 


AtlS 


ALO 


ARTHE 


ARTHX 




1641 


15 


1902 


1786 




275 


AL14 


SRT 


0001 






1650 


30 


0001 


1643 




276 




STL 


ARTHD 






1643 


20 


1665 


1642 




277 




RAL 


AJ2 


AL15 




1642 


65' 


1903 


1641 




278 


All • 


50 


0000 


0000 




1736 


50 


0000 


0000 




279 


AL2 


10 


0000 


0000 




1660 


10 


0000 


0000 




280 


At 11 


10 


0000 


0050 




1685 


10 


0000 


0050 




281 


Atl6 


00 


0000 


0002 , 




1686 


00 


0000 


0002 




282 


AJ2 


00 


0000 


0001 




1903 


00 


0000 


0001 




283 


EOOAN 


STO 


ARTHY 




POWER 


1651 


24 


1808 


1687 




284 




LDO 


ACC 




FLOAT FIX 


1687 


69 


0000 


1674 




285 




STO 


ARTHH 




REVERSE 


1674 


24 


1788 


1745 




286 




STL 


ACC 


AL17A 




1745 


20 


0000 


1709 




287 


EOOAK 


STD 


ARTHY 




POWER FIXFIX 


1704 


24 


1808 


1711 




288 




STL 


ARTHG 


AK1 


Q IS ARGMNT 


1711 


20 


1794 


1647 




289 


■ AK1 


RA8 


ACC 




K EQUALS 


1647 


67 


oooo 


1705 




290 




STL 


ARTHF 




ABVAL POWER 


1705 


20 


1772 


1725 




291 




RAL 


AJ2 




Z EQUALS 


1725 


65 


1903 


1707 




• 292 




STL 


ARTHH 


AK3 


ONE 


1707 


20 


1788 


1718 
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295 
296 
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298 
299 
300 
301 
•302 
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312 
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Sample Problem for the IT Compiler 

This program utilises Simpson*© Rule t© evaluate 

, | t <x) cbu 

TfoA aampl® problem is concerned with computing ' 

I(p) • \ sin (2p+l) x dx 
for p - 0(1) 100 . The valua of I(P) is 2/(2pil). 
the program uses the following data? 
1« Bang© 

a ■ ' CI 0000 0000 00 
b C2 31U 5900 50 
2® Tolerance: 

k C3 5000 0000 45 

3. The number of the first statement, of the routine providing £(x) 
for a given x 

II 0000 0000 09 
The f miction rout in© computes 

Yl «- f (15) ' ■ ■ ■ ■ 

and terminates ■with 

GI2 * . . ■■ 

to return control to the Simpson* s Rule routine® 

The integration routine computes approximations on successively finer meshoa 
until two' successive approximations differ in absolute value by leas than 
6* Kowevar f(x) is never computed more than once for any x, ftH® is' don® 
by using the following recurrence scheme?' 
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l^ - (b-a)/2 

Jl - h x [ f (a) * t (b) ] 

■W " 1A (In ♦ J a ) 

Iteration erases for th® least n 9 for whieh 

| x it * x ntl»l 6 * **» vaI ^ or the integral is X . , 
Tho routine punches s for ®&@h p p 

P Kp) & h 
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FLOW GHAUTS FOR IT 



Flow charts for the IT Compiler are not included 
in this edition of the write-up as 'they are not yet available 
for reproduction. Xt la expected that the flow charts will 

be reproduced in the near future and will be avallaWto^poa 

request from Mr. F e E. Ross* Applied Programming _ 
.Publications, IBM Corporation, 590. Madison Avenu^' New 

York 22* N.Y. 

Notice of the availability of the IT flow -charts will 
be given in an IBM feSO Bulletin as soon as possible sub* 
• sequent to reproduction,. • . . 



S.IZ 



ERRATA 



2*1*001 IT Compiler 



I, SOAP listing of the Compiler 



Card No* 


Should 


read s 




793 


LDD 


ML1A 


TKNZ1 


799 HU 


LDD 


MUA 


TKNZ2 


A793 MLLA 


SLO 


8002 . 




B793 


STL 


ABVAL 


Mil 



0940 69 1802 1094 
1178 69 1802 1194 

1802 . ,16 8002 1852 
1852 20 0366 1291 

The. above changes are corrections ' to the compiler and do not represent 

misprints in the listing* The compiler as distributed would construct a 
incorrect translation of Relational statements where the riggit hand members 

were ©f the form? 

■ U 

where V^ and V« are operands and SL an operation. 

The above 4 changes should be made in the 7 -per card deck -which is in 

standard 7 words p^r card form* 



^.OO 



2. Errata in the Description 

1) Page 1*41 : 2nd line after subroutine error listing should read 

8 * than 10""* the computer* .....'* 

2) Page 1,44 I Program and remarks under b), (i) should reads 

Is 12 «• 11 
2s 6 9 15, 0, 1, iWL, 
3s 6, 13, 0, 1, n-JL, 
4? GU (15, 13) •• 
51 6, 14, 0, 1, IWL f 

6s GN (15,13) - CN (15,13) * TO (12, 14) x m (14,13) 
7« H 
The matrix B is represented as the matrix CN f whose (row) dimension 
must be specified. Statement 1 sets the correct dimension, 

3) Pag® 1*45 t Program (II) 

4th statement t 111 should read "IH*' 
5th •* t 112 " ** "122" 
8th " J E2 *° " "112" 

4) Pag® 1,46 | Program (II) 

1st statement should reads 

M 0« CI*- YI2** 



4*oi 
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_. 650 Library Pro^n^-File No. 2.1.001 

ERRATA UX 

-Internal Translator (IT), A Compiler for the 65O." By A.J.Pcrlis 
J«W.Smlth e and H.K. Van Zoorwn. 

Xn the SOAP listing of iho Compiler, 

'Card No* Should read? 

a04 LDD 1971 GOT 1139 69 1971 1681 

The above changes are corrections to the compiler and do not represent 
' misprint, in the lUting. The compilers distributed would construct 
an incorrect translation of Relational statements where the right hand 
.members were of the forms 

..." Vl-AVjj 

w 

where V, 1b a numerical constant, 

Ih. above charge should bo aade in the seven per card deck which is in 

standard seven word3 per card form. 



A. o. 



Foe.TR/3/U 

ST/)T£M£UTS T<? /t~ 
ST/}T£M&AJ"i3 



, . PROG<UM FCH» FORTRAN 

} J STATEMENTS TO IT STATEMENTS 

t HLft 1000. 1010 

! Ill 1150 lin FUNCTIONS 

t S! 1200 1210 NONARIJM T 

I BLR 1**0 1*5* WW VA« TA 

* BLR 1500 1519 J| ** S M! L 

1 BLR 1*00 1699 VARBL TA8L 

; St! it» i«o ii;: t j:j' t 

,J BLR 1900 1930 PACK BAND 

\\ 5e6 RiJsi ISSo RfAO BAND 

J] RES R19TT 19B6 PUNCH BANO 



1- 



1* 8L * 



15 



IT 



1990 1996 COMP 60 TA 



SYN START 1999 



\l SYN RESET 0228 

• • • -*... «*»»<• tan 



SYN STO«G 1961 



22 N *° *I* RT «... * 0026 21 0030 0033 

2) JJO IAO SUB J SS5S 2* 0036 0039 

2* fTD J"* JSS A 0039 2* 00*2 00*5 

25 fTO SW5 *» Q045 24 004>8 0001 

26 STO CTVAR 0(m fe , 0004 000 7 

27 LOO EGHTS 0007 24 1986 008 9 

28 fTO J?g;j 0089 69 0092 0095 
19 LOO CNPKA Q095 24 0098 0051 

>° ST0 5-!^. «..•*» WITCH PKA 0092 20 00*7 0000 

,1 CNPKA STL TEST* SUBAl SWITCH PKA 0U9Z oqoj ^ 

S2 MAO RAL IAC FRST WO IN 0057 *5 0010 0011 

»» "Jf ;^;j K« BAND 0011 65 001* 0019 

1* J* J; JJJJJ irMORO 0019 16 0022 0027 

** S b°- I«lE i««0 NEXT CARD 0027 *5 0010 1830 

96 "« *«**; JUS NEXT C * ° 0022 00 6575 6*00 

37 ENOCN 00 6575 6*00 J ?0 0l(n 

18 AREAO RCO 1951 RUNCM MEOR 0101 65 I960 0065 

>9 RA i J?* CARD AND 0065 5* 0001 0071 

60 SLT 0001 illNlTlA 0071 ** 0050 0076 

♦ 1 M2U RE*0 RJI 0076 35 0001 0083 

♦2 fL* ™? 1 tl,f 0083 *4 0051 0038 

A3 N * U **£* P . CK « tf A l 0038 69 0092 01*5 

** LW £"£*. «r 01*5 2* 00*8 0151 

*S . ?™ Iff" ?S CA SU8A 5i 69 005* 0107 

*6 SWT LOO IN2 TR CA »ut»» 0(J60 0Q1J 

♦7 IR CA STO SW 59 ^ M oou 0069 

♦8 «*h II«t! 0069 21 00*7 0100 

♦9 stu "*;* ti ,, 0100 *5 010* 005* 

50 N2E N2T» »** 0lQ4 35 00 02 0061 

91 Ml* SLT 0002 Q0 r 44 ou5 ©10* 

52 N2U NZT * N2T5 Q() JJ M ■ oi»A 0009 

53 RACK «AL LTR W QQQ<t ft9 0Ql2 0lft5 

54 tOO ™ «C M12 24 on5 0018 

55 * T © XIIU 0018 20 1982 0035 

56 STL JOOJ* 0035 10 0088 00*3 

* T ?™ t ,*5! SUB X 00*3 69 00*6 00*9 

58 LOO TJASW SOB R 6 , Q053 0006 

59 SWBA1 LOO CNPKB "»« sw ** ^ 2% Q09e 020l 

60 STO SWPKA 02Ql fc9 Qoa8 004l 

61 LOO PAOCA 004J 24 0060 006 j 

62 STO SW 59 006 , fc , 0016 oll , 

63 LOO SWH *»'"- on9 24 0072 0025 
6* STO 5W *o o»imriiT 0025 60 i960 0265 

65 «*« a »«*2 STATEMENT 0025 ^ i^^ ooj? 

66 m STO P0008 00J7 2Q 0003 0056 

* 7 &TL i«L« ».,. 0056 21 1985 0138 

68 STU P0009 TRA1B ««• § . Q()47 o251 

69 TRA1B RAL TESTA TR AA J13J JJ j"^ 

?0 CNPKB STL TESTA SUBA2 JJM W ^^ ^^ 

71 S0BA2 ALO TEMAE TR AA »» 3J 00(J2 0l&7 

7 * T " ** IX, N?? * TES? J CMA Sl57 ** 0115 0062 

73 «W I" * .,,_ A ' ■ 0062 20 001* 001? 

74 STL TENAE SUB A J»* Q 0002 ol21 

t» «"* gj t ;s;i we char oi« n ooi4 0067 

76 STO TEHAE ? lQ 000J o2o7 

" i% ;iSr» IW>6 1~ Si57 11 0110 0315 

78 SOP CNBK8 ,„ 44 ou , 0020 

T9 «U STP R J J, J0 Ql22 007T 

60 AOP CNBI6 atORf 00T7 21 0003 0106 

61 STU IAC STORE JJ ft00 , 

•2 *W p CN ." ui! 0059 20 1699 0017 

63 CN « STL 1 899 SUB A JJj o3Ql 

•6 SUB A RAL TESTA LT PARNT 001 owf 

•» SLO PARNL Ql0 , 45 ou2 oll , 

•* 2!? Sn* TR L ADO TO COU 0113 6S 0066 0171 

•t *AL ONE TR L »«w iw vwv ^ 00a> 

68 TR L ALO AO ■ *„ 20 00 , 0l „ 

69 STL IAO TR * ^ om Ml , 

90 N2Tf ALO PLUS JJ« JJ 007 , 8 021 

91 I" JJ.* -- , tuR TO COU 0021 66 0066 0171 

S ™ . i« «?« S8 S f o». .» 00.» 00.7 
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13* 
133 
138 
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138 
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1** 
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1*9 
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151 
132 
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000* 
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STD 
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SW BA 
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NZTE9 

OUT 10 

OUT 11 

OUT 9 

0UT1 2 

F7 

TEMAF 
NZTE9 

LTR S 
OUT 13 
0UT1* 
OUT 1 5 
OUT 16 
F9 

LTR S 
TEMAB 
SW BA 
SW 50 
TgMAB 
NINE 
000* 
1900 
1900 
EIGHT 
I AC 
1AFI 
ONE 
TEMPH 
1900 
000* 
1900 
THREE 
SW KA 
SW LB 
TR UA 
ONE 
TX OB 
IAI 
IAI 
SW BE 
0002 
TEMAF 
1AC 
ONE 
IAFI 
IAC 
IAFI 
ZT C5 
ONE 
TEMPH 
TEMPH 
ONE 
TR UB 
1990 
TR LO 
TEST 
SW KB 
SW MA 
SW NA 
SW 62 
SW »9 



SUB J 
SW 56 
TR IT 
JTEST 
JZERO 

TR KK 

TR IU 



SWITCH 56 

BYPASS 
INSERTION 
OF L ANO R 
FOR 

SPECIFIC 
VARIABLE 
OF ARRAY 



SUBP 
TRAJK 



TR 


KN 


TR 


IV 


TR 


HC 


TR 


UN 


SUBE1 


TR 


KK 


TR 


IZ 


TR 


KK 


TR 


JO 


TR 


KK 


ZT 


E9 


TR 


IV 


TR 


KK 


TR 


KK 


TR 


KK 



OUT 12 

OUT 11 
ZT F2 

TR KK 

TR IV 

TR KK 

TR KK 

OUT 16 
TR Jt 
TRAJK 

TR JP 



TR SM 



FLO 1 

TR UW 
IT F6 

6002 
TR L! 



OUT 1 

TR UW 

6002 
TR LP 

TR KD 



TR OX 



0732 
0*16 
1569 

0002 
0002 
0352 
0756 
0983 
0836 

im 

1307 

0563 

1267 

1769 

1573 

1379 

1255 

1523 

0782 

1870 

0*7* 

0*02 

1*73 

1831 

0*52 

1970 

0502 

0*91 

0552 

0602 

0806 

0652 

0702 

0752 

1357 

0802 

0856 

1819 

0852 

0906 

0902 

0952 

1052 

1102 

1*07 

0663 

0516 

06*8 

0*66 

1869 

1252 

0366 

0678 

1839 

1805 

0733 

01*7 

0956 

0*62 

1969 

0368 

1853 

0616 

0803 

0811 

1723 

076* 

1773 

1317 

1302 

0853 

1973 

1352 

0609 

1367 

1*57 

032* 

0512 

1106 

1026 

1681 

1873 

057* 

1*02 

0633 

0713 

0258 

081* 

062* 

1033 

06*1 

0897 



60 

69 

20 

60 

65 

*5 

65 

69 

65 

*6 

65 

*5 

60 

69 

20 

2* 

69 

69 

2* 

*5 

69 

35 

65 

69 

2* 

67 

69 

2* 

69 

*5 

69 

69 

69 

69 

65 

*5 

65 

*5 

*5 

65 

69 

69 

69 

69 

65 

*3 

65 

2* 

69 

2* 

20 

60 

35 

10 

21 

69 

69 

2* 

69 

2* 

63 

35 

20 

65 

10 

69 

65 

11 



0161 

1569 

0297 

0975 

0297 

0756 

0979 

0836 

001* 

1*73 

0208 

0756 

001* 

1573 

0212 

0002 

016* 

1329 

0267 

0*7* 

0*97 

000* 

0976 

078* 

0267 

001* 

1305 

0267 

1329 

0806 

0709 

1355 

1*05 

1*23 

0297 

0856 

016* 

0806 

0906 

0797 

1*55 

1555 

1705 

1755 

0208 

0516 

0797 

0212 

0116 

0*76 

0212 

0222 

000* 

1900 

1900 

0196 

0003 

0759 

0066 

0215 

1900 

000* 

1900 

1056 

076* 

1026 

1317 

0066 

0118 

0**9 

0**9 

1076 

0002 

016* 

0003 

0066 

0759 

0003 

0759 

0576 

0066 

0215 

0215 

0066 

0256 

1990 

0861 

1*17 

0728 



** 

10 

21 

69 

30 

20 

65 

16 

69 

2* 

20 

65 

10 

10 

21 

10 

65 

21 

69 

2* 

65 

10 

69 

2* 

SO 



0*16 

1250 

0002 

1379 

0352 

1307 

0983 

0*91 

1719 

1523 

0563 

1267 

1769 

1251 

0*66 

1255 

1237 

0782 

1B70 

0870 

0*02 

0613 

1831 

0*91 

1970 

0*7* 

0*91 

0*97 

0*91 

1357 

0782 

0*91 

0*91 

0*91 

0802 

1*23 

1819 

1355 

1*07 

0902 

0*91 

0782 

0*91 

0*91 

0663 

1755 

1052 

0*66 

1669 

1865 

0566 

0678 

1839 

1805 

0753 

0725 

0956 

0*62 

1969 

0368 

1855 

0616 

0803 

0811 

1723 

0679 

1773 

1873 

1973 

0853 

8002 

0388 

0809 

1367 

1*57 

052* 

0312 

1106 

056* 

1681 

1873 

057* 

8002 

1302 

0713 

1*02 

081* 

062* 

1033 



/o 



0886 06*1 

099* i0897 

0352 A 555 

0060 «>763 



t 
* 
ft 
ft 
ft 
> 

;> 



o 



931 
932 
931 
93* 
935 
936 
937 
938 
939 
940 
941 

942 

943 

944 

945 

94* 

947 

948 

949 

9*0 

9*1 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1006 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 



TR L0 



MA$fcl 



MASK* 

TR LN 



TR SE 

TR LO 
TR U 



SW NA 



ZT G3 

U60 

SWBA1 
SW BB 
SW 80 
SW BE 

SW BF 
SW 80 

&w fa 

SW F8 
SW MA 
SW HB 
SW IA 
SW IB 
SW IC 
SW KB 
SW MA 
NNAL1 
NN tl 
NN L2 
NN L3 
OUT 1 
OUT 3 
OUT 4 
OUT 6 
OUT 5 
OUT T 
OUT 8 
OUT 9 
OUT 10 
OUT 11 
OUT 12 
OUT 1 3 
OUT 14 
0UT13 
OUT 16 
0UT1T 
OUT 19 
0UTQ1 
0UTQ2 



STU 
RAL 

too 

TtU 
LOO 
50A 
SLO 
RAL 
SL0 
N2E 
LDO 
STO 
RAU 
SLO 
STL 
MZE 
RAU 
LOO 
STO 
LOO 
B01 
ALO 
LDO 
ALO 
LOO 
RAU 
NZE 
SLO 
STL 
RAL 
ALO 
STL 
RAL 
99 
NZU 
SUP 
SUP 
ALO 
SUP- 
SUP 
RAL 
RAL 
RAL 
RAU 
RAL 
RAL 
RAL 
RAL 
RAL 
RAL 
RAL 
AUP 
STU 
RAU 
LOO 
RAL 
RAL 
LDO 
LOD 
RAL 
RAL 
RAL 
RAL 
RAL 
RAL 
RAL 
RAL 
LOO 
RAL 
RAL 
STL 
STL 



SUBJ 
SUSJ1 



INSVR 



SW 61 

MASK1 
TEMAB 
1161 
MASK 2 
TESTO 

cwAie 

0000 
TEMAB 

1171 
LTR 
TEMAB 

0000 
ONE 
IAI 
TR LO 
TX DL 
TR LO 
TEST 

1991 

SW KA 
SW LB 
TX DB 
IT C5 
LTR 

ONE 
1990 
1990 
ONE 

1990 
IAI 

9999 
NZTAT 
MULT 
JEROL 
TEMAA 
LTR E 
LTR E 
FIVE 
TEMAB 
F7 

SW MA 
Fl 
F3 
F5 

1990 

TR LO 

1699 

1899 

1977 

1977 

P0001 

TEMAC 

TEMAC 

SLCOM 

SW BO 

OUT 17 

F6 

LTR R 
LTR X 
F7 
F8 
F6 

LTR X 
F9 

LTR R 
LTR R 
SW AB 
FS 
F6 



TEST 



6002 



TESTO 
TR UO 



TR SE 

TR OX 

TR OX 
TR ML 
ZT 63 

TX OB 



ZT C5 
TR LN 
9999 
TX OH 
TR MM 
TR IL 
TR KF 
TR MP 
TR MU 
TR ME 
TX 01 
JTEST 
TR IT 
TR 1M 
TR IN 
TR 10 
TR LZ 
TR KO 
TR JM 
TR JM 
TR MN 
TR MO 
TR MO 
TR MR 
TR IB 
TR JA 
TR IK 
TR IV 
TR JC 
TR JS 
TR JO 
TR JF 
TR JG 
TR JM 
TR Jl 
TR JJ 
TR JK 
TR JB 
INIO 
TR J« 
TR JV 



END OF TAB 

FOR 
50 



SETTINGS F 

SBITCM 54 
SETTINGS P 

SWITCH 56 
SETTINGS 

FOR 

SWITCH ST 



NXT WO INS 
TO TX 01 
STORE PCM 

EXITS 
FROM 

STORE 
SUBRQUT IN 



Jl 
J2 



STO 

SCT 

STU 

RAU 

STL 

STO 

NZE 

AUP 

ALO 

STU 

STL 

AUP 

STO 

LDO 

RAL 

BMI 



INSERT VARIABLES IN TABLE AND 
ASSIGN I OR V VALUE DEPENDING 
IF VARIABLE IS M*ED POINT OR 
FLOATING POINT 



0763 

0861 

0674 

0666 

1467 

0778 

0895 

0664 

1256 

1567 

6714 

1931 

0714 

1552 

0824 

1702 

1557 

0859 

0909 

0874 

1044 

0947 

0924 

0599 

0974 

1306 

1752 

1356 

1024 

0994 

0945 

1074 

1707 

1160 

0160 

1185 

1802 

1076 

0603 

0684 

0426 

0238 

0973 

1270 

1123 

1420 

1235 

0728 

0886 

0148 

0304- 

0609 

0872 

0364 

0923 

1023 

0766 

0855 

0764 

1305 

1405 

0709 

1355 

1423 

1435 

1555 

1705 

1755 

1337 

1427 

1179 

1263 



OUT 

0000 
TEST 
CTVAR 
SUBSC 
STORG 
J101 
ONE 
ONE 1 
CTVAR 
STORG 

1*99 
TEST 

•001 



SUBJ1 



INSVR 



Jl 
J2 

•00» 

J4» 



STORE 
SIGNED VAR 
IN TEHPLOC 

ZERO 
TEMPORARY 
COUNTERS 



STORE 
MNEMONIC 
IN VAR1AGL 
TABLE 

TEST If 
SUftSC OR 



21 012* 
65 0864 
69 0212 
84 1161 
69 0724 

22 0192 
16 0748 
65 0000 
16 0212 
45 1171 
69 0828 
24 0212 
60 0000 
16 0066 
20 0449 
43 1306 
60 0655 
69 1306 
24 1417 
69 1991 
91 0947 
15 0764 
69 1026 

15 0118 
69 0576 
60 0828 
45 1356 

16 0066 
20 1990 
65 1990 
15 0066 
20 1990 
65 04*9 
99 9999 
44 0700 
11 0419 
11 0686 
13 0127 
11 0188 
11 0188 
65 0102 
65 0212 
63 0297 
60 0975 
65 0373 
65 0161 
65 1117 
6* 1990 
65 0861 
65 1899 
65 1899 
10 1977 
21 1977 
60 1977 
69 0167 
65 0167 
65 1689 
69 1802 
69 1337 
65 0467 
63 1222 
63 0795 
65 0297 
63 0052 
65 0052 
65 0795 
65 0208 
69 1222 
63 1222 
65 O3B0 
20 1117 
10 0467 



1250 
1406 
1429 
1124 
0953 
0T16 
0914 
1174 
1M4 
1939 
1832 
0964 

in* 

1ZT4 
1033 
0939 



1*17 

0674 

0666 

1*67 

0776 

0895 

8002 

1256 

1567 

077* 

1931 

0192 

0697 

082* 

1702 

1557- 

0859 

0909 

0874 

10*4 

0599 

0924 

0897 

0974 

0897 

0549 

1707 

1024 

0118 

09*5 

1074 

0576 

1552 

9999 

0*11 

1*00 

1*01 

1352 

1700 

1750 

0750 

1*65 

0352 

1379 

1551 

1701 

1801 

1752 

1402 

0650 

0650 

0800 

0850 

0950 

1350 

1800 

0502 

1850 

0452 

0602 

0752 

0652 

0702 

0852 

0952 

1052 

1102 

0648 

0552 

1385 

0232 

0302 



11 



24 0903 

36 0000 

21 1417 

60 0046 

20 1962 
24 1961 
43 0418 
10 006"> 
13 00f« 

21 00*1 
20 19; 1 
10 171' 
24 139' 
69 141 
65 800 
4* 0?> 



1406 

1429 

1124 

0953 

0716 

0914 

1174 

1224 

1939 

1852 

0964 

1274 

1053 

6003 

095* 

0813 



102* 
1025 
8026 

to?? 

1028 

1029 

1030 

1031 

1032 

1033 

103* 

1035 

1036 

103? 

1038 

1039 

10*0 

10*1 

10*2 

10*3 

10** 

10*5 

10*6 

10*7 

10*8 

10*9 

1050 

1051 

1052 

1053 

105* 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

106* 

1065 

1066 

106? 

1066 

1069 

1070 

1071 

1072 

1073 

107* 

1075 

1076 

1077 

1078 

1079 

1080 

1061 

1082 

1063 

108* 

1085 

1086 

SOB? 

1088 

1089 

1090 

1091 

1092 

1093 

109* 

1095 

1096 

109? 

1098 

1099 

1100 

1101 

1102 

1103 

110* 

1103 

1106 

1107 

1108 

1109 

1110 

111! 

1112 

1113 

111* 

1113 

1116 





RAU 


SUBSC 




NOW SUBSC 


©562 


60 


1962 


1767 




SUP 


200 




MALT OVER 


1?6? 


11 


1 32* 


1*79 




N2U 


J2A 


STP N 


20 SUBSC 


t*?9 


4ft - 


1083 


083* 


STP N 


HUT 


0002 


PACK 


VARIABLES 


083* 


01 


0002 


0051 


J2A 


AUP 


210 




INCREMENT 


1083 


10 


0936 


0691 




STU 


SUBSC 




SUBSC CTR 


0691 


21 


1962 


0766 




RAU 


TfSTO 






0766 


60 


0192 


0997 




SRT 


0003 




SET Mf* 


0997 


30 


0003 


1*56 




5TL 


OUTE 




J I BASE 


1*56 


20 


0911 


1014 




RAU 


TESTN 




WORD AND 


101* 


60 


1817 


137* 




SLT 


000* 




STORE IN 


137* 


35 


000* 


1*35 




AUP 


OUTE 




SU8SCRPT 


1*35 


10 


0911 


0816 




AUP 


STORG 




TABLE 


0616 


10 


1961 


0866 




ALO 


SUBSC 






0B66 


15 


1962 


186? 




ALO 




J3 




1867 


15 


1*2* 


1529 




STU 


1*99 


J* 


SET SWCHS 


1*2* 


21 


1*99 


1103 


J3 


LDD 


SETA 




A AND Al 


1529 


69 


0832 


1*85 




SOA 


SWCHA 




FOR FIX 


1*85 


22 


1989 


06*2 




LDO 


SFTAl 




FLT TEST 


06*2 


69 


0995 


0798 




SOA 


SWHA1 


8002. 


IF SUBS VR 


0798 


22 


1253 


8002 


J* 


RAU 


TESTO 




INCREMENT 


1103 


60 


0192 


10*7 




HZU 


nzmpy 




STORG CTR 


IO*T 


** 


130S 


1353 




ALO 


TESTN 


J*A 


BY I TIMES 


1353 


15 


1817 


147* 


NZMPY 


M»Y 


TESTN 


J*A 




1303 


19 


1817 


1*74 


%**A 


ALO 


STORG 






i*7* 


15 


1961 


0916 




SLO 


ONE 1 




J MINUS t 


0916 


16 


008* 


03*0 




STL 


STORG 






03*0 


20 


1961 


106* 




STD 


TOTLC 


FXFLT 




106* 


2* 


196? 


152* 


FXFLT 


RAM 


TEST 




TEST VAR 


152* 


67 


1417 


1574 




SLT 


0002 




FOR FIX OR 


157* 


35 


0002 


0882 




RAU 


8003 




FLT PT 


0882 


60 


8003 


0390 




SUP 


LTRNI 






0390 


11 


1393 


1097 




BH! 


SWCHA 




BRCH'FLT 


1097 


46 


1989 


1*03 




SUP 


SEVEN 






1*03 


11 


0296 


1553 




BMI 


SWHA1 


SWCHA 


BRCH FIX 


1553 


46 


1253 


1989 


SETA 


RAM 


1*99 




SW A SET 


0832 


67 


1*99 


1703 




RAU 


8002 


Jh 




1703 


60 


8002 


0961 


NORMA. 


RAU 


STORG 


Jl 


SW A NORM 


1753 


60 


1961 


0966 


5ETA1 


RAM 


1*99 






0995 


67 


1*99 


1803 




RAU 


8002 


J8 


SW Al SET 


1803 


60 


8002 


1011 


NRMA1 


RAU 


STORG 


J9 


SWA1 NORM 


1653 


60 


1961 


1016 


J6 


ALO 


LTR Y 


OUT 




0961 


15 


111* 


0903 


J7 


LOO 


J6 


SUBE2 




0966 


69 


0961 


121* 


J9 


ALO 


LTR I 


OUT 




1011 


15 


126* 


0903 


J9 


LOD 


J8 


SUBE2 




1016 


69 


1011 


121* 


J*6 


LOO 


5T0RG 






0813 


69 


1961 


131* 




STD 


TOTLC 


NOSUB 




131* 


2* 


1967 


172* 


NOSUB 


LDD 


NORMA 




SWS A AN© 


172* 


69 


1753 


1556 




STD 


SWCHA 




Al NORM V 


1556 


2* 


1989 


0692 




LDD 


NRMA1 




FIX FLT IF 


0692 


69 


1853 


1706 


" 


STD 


SMHA1 


FXFLT 


NONSUBS VR 


1706 


2* 


1253 


152* 


SUBE 2 


STD 


OUTE 2 






121* 


2* 


0*68 


1774 




LDD 


D0NE1 


SUBE 




177* 


69 


0878 


1251 


5U8E1 


SLT 


0006 


SUBE 




0613 


33 


0006 


1251 


SUBE 


STD 


OUTE 


LOPFF 


SET UP 


1251 


2* 


0911 


1364 


LOPFF 


NZU 




OUTE 


DOUBL DIGT 


136* 


44 


0518 


0911 




SRT 


0001 




LOCATION 


0516 


30 


0001 


1075 




STU 


TESTE 




NUMBER FOR 


1075 


21 


0630 


1133 




SUP 


8001 




MONSUBSC 


1133 


11 


8001 


0**0 




SRT 


0001 




VARIABLES 


0**0 


30 


0001 


11*7 




ALO 


A2ER0 






11*7 


13 


060* 


1059 




AUP 


TESTE 


LOPFF 




1059 


10 


0630 


136* 


00NE1 


SRT 


0002 


0UTE2 




0878 


30 


0002 


0*68 


J101 


SUP 


HNORD 




HALT OVER 


0*18 


11 


187* 


1579 




N2E 




STP N 


100 VARS 


1579 


45 


0932 


083* 




AUP 


8001 


NXTvR 


TEST 


0932 


10 


8001 


0*90 


NXTVR 


ALO 


ONE 






0*90 


15 


0066 


197* 




STL 


MCHCT 




VARIABLE 


197* 


20 


1729 


0982 




ALO 




J101A 


FOR TABLE 


0982 


15 


1535 


05*0 




RAM 


1599 


J101B 


MATCH 


1535 


67 


1599 


065* 


J101A 


LDD 


TSVAR 






05*0 


69 


1**3 


05*6 




SDA 


TSVAR 


8002 




05*6 


22 


1**3 


8002 


J101B 


SML 


TEST 






065* 


18 


1*1? 


1125 




NZE 


J102 


MATCH 




1125 


*5 


0928 


1779 


J102 


LDD 


NORMB 




SWS B C 


0928 


69 


1032 


1585 




STD 


SWCMB 




AND NORM 


1585 


24 


0*38 


07*1 




STO 


SWCHC 




TO REPEAT 


07*3 


2* 


109* 


1197 




LDD 


NORMD 




TABLE 


1197 


69 


0704 


175? 




STO 


SWCHD 


TSVAR 


SEARCH 


1757 


2* 


0310 


1**3 


TSVAR 


RAL 


0000 




INCREMENT 


1**3 


65 


0000 


1756 




BMI 




PLSAD 


STORG AND 


1756 


46 


1109 


0360 




RAL 


SUBSC 




SUBSC CTRS 


1109 


65 


1962 


0566 




ALO 


ONE 




AS NEEDED 


0566 


15 


0066 


1175 




STL 


SUBSC 




BEFORE 


1175 


20 


1962 


1066 




ALO 




J103 


CONTINUING 
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